3.1.3 (d+e x^r)^q (a+b log(c x^n))^p.nb

(* Content-type: application/mathematica *)

(*** Wolfram Notebook File ***)
(* http://www.wolfram.com/nb *)

(* CreatedBy='Mathematica 7.0' *)

(*CacheID: 234*)
(* Internal cache information:
NotebookFileLineBreakTest
NotebookFileLineBreakTest
NotebookDataPosition[       145,          7]
NotebookDataLength[    472008,       9091]
NotebookOptionsPosition[    461108,       8820]
NotebookOutlinePosition[    462877,       8875]
CellTagsIndexPosition[    462834,       8872]
WindowFrame->Normal*)

(* Beginning of Notebook Content *)
Notebook[{
Cell[BoxData[Cell[TextData[{
  StyleBox["Rules for integrands of the form  ",
   FontFamily->"Arial"],
  Cell[BoxData[
   RowBox[{
    SuperscriptBox[
     RowBox[{"(", 
      RowBox[{"d", "+", 
       RowBox[{"e", " ", 
        SuperscriptBox["x", "r"]}]}], ")"}], "q"], " ", 
    SuperscriptBox[
     RowBox[{"(", 
      RowBox[{"a", "+", 
       RowBox[{"b", " ", 
        RowBox[{"Log", "[", 
         RowBox[{"c", " ", 
          SuperscriptBox["x", "n"]}], "]"}]}]}], ")"}], "p"]}]],
   CellDingbat->None,
   CellChangeTimes->{
    3.477935275784027*^9, {3.477935350060832*^9, 3.477935352384173*^9}, {
     3.477935393803731*^9, 3.477935400102789*^9}, {3.477935515378547*^9, 
     3.47793552034569*^9}, 3.478120029940968*^9, {3.479318860690858*^9, 
     3.47931886615872*^9}, {3.4794185033278093`*^9, 3.479418503918659*^9}, 
     3.4795122294117584`*^9, {3.479615913307893*^9, 3.4796159352794867`*^9}, 
     3.4796160386581373`*^9, 3.4796867204045024`*^9, {3.4928025699585147`*^9, 
     3.492802570130115*^9}, 3.492822274480175*^9, 3.492825822242408*^9, {
     3.4940970615585365`*^9, 3.494097062168537*^9}, {3.496441349250718*^9, 
     3.496441349830719*^9}, 3.4964414848609076`*^9, 3.496521708137803*^9, {
     3.4965218981240697`*^9, 3.49652189838407*^9}, 3.4965229070755*^9, 
     3.519247079685614*^9, {3.5193208582062006`*^9, 3.5193208612170057`*^9}, 
     3.5193325694253187`*^9, {3.5193415004828687`*^9, 
     3.5193415113404875`*^9}, {3.5193513965602303`*^9, 
     3.519351397420232*^9}, {3.5194037839416766`*^9, 3.5194037847117205`*^9}, 
     3.52105258275843*^9, 3.5210531741726685`*^9, {3.521057461672199*^9, 
     3.5210574760242243`*^9}, {3.521059881564049*^9, 3.521059886088057*^9}, {
     3.5213902158895197`*^9, 3.521390217543123*^9}, {3.521390827878595*^9, 
     3.521390829376197*^9}, {3.5214688792561245`*^9, 3.521468879443325*^9}, {
     3.523320201951167*^9, 3.523320202247567*^9}, {3.5288596764894824`*^9, 
     3.5288596768094826`*^9}, {3.529196266260353*^9, 
     3.5291962665099535`*^9}, {3.5291997050223927`*^9, 
     3.5291997052563934`*^9}, {3.529201346457276*^9, 3.529201347252877*^9}, {
     3.529285041073242*^9, 3.5292850412632427`*^9}, {3.529285215443486*^9, 
     3.529285215443486*^9}, {3.5295115356999426`*^9, 
     3.5295115433443794`*^9}, {3.529521412127842*^9, 3.529521414647986*^9}, {
     3.529529429975619*^9, 3.529529432955224*^9}, 3.5340074894011116`*^9, 
     3.5415537711400824`*^9, {3.5415538454742126`*^9, 3.54155384951462*^9}, {
     3.5417297197063265`*^9, 3.5417297252443366`*^9}, {3.546297494083555*^9, 
     3.5462974982435613`*^9}, {3.5462989134855423`*^9, 
     3.5462989153655453`*^9}, 3.548544146508506*^9, 3.5488738855784535`*^9, {
     3.5505953688729563`*^9, 3.5505953726861744`*^9}, {3.550619508681926*^9, 
     3.5506195174954305`*^9}, {3.551326301250945*^9, 3.551326301841979*^9}, {
     3.552150760656293*^9, 3.552150761436294*^9}, 3.5521509768882723`*^9, {
     3.5521510341403728`*^9, 3.5521510486171985`*^9}, {3.5521511118909097`*^9,
      3.5521511159313164`*^9}, 3.55215165895267*^9, 3.552151705315952*^9, 
     3.553532182175474*^9, {3.553559669357978*^9, 3.553559705888029*^9}, {
     3.553560225618757*^9, 3.55356022752876*^9}, {3.5536175751912155`*^9, 
     3.5536175847212286`*^9}, 3.5860254133948617`*^9, 3.5861106634510365`*^9},
   FontWeight->"Bold"]
 }], "None"]], "Subsubtitle",
 CellDingbat->None,
 CellChangeTimes->{
  3.477935275784027*^9, {3.477935350060832*^9, 3.477935352384173*^9}, {
   3.477935393803731*^9, 3.477935400102789*^9}, {3.477935515378547*^9, 
   3.47793552034569*^9}, 3.478120029940968*^9, {3.479318860690858*^9, 
   3.47931886615872*^9}, {3.4794185033278093`*^9, 3.479418503918659*^9}, 
   3.4795122294117584`*^9, {3.479615913307893*^9, 3.4796159352794867`*^9}, 
   3.4796160386581373`*^9, 3.4796867204045024`*^9, {3.4928025699585147`*^9, 
   3.492802570130115*^9}, 3.492822274480175*^9, 3.492825822242408*^9, {
   3.4940970615585365`*^9, 3.494097062168537*^9}, {3.496441349250718*^9, 
   3.496441349830719*^9}, 3.4964414848609076`*^9, 3.496521708137803*^9, {
   3.4965218981240697`*^9, 3.49652189838407*^9}, 3.4965229070755*^9, 
   3.4965234353062396`*^9, {3.5193214825316973`*^9, 3.5193214852617016`*^9}, {
   3.523316399894187*^9, 3.5233164032341914`*^9}, {3.523318350558202*^9, 
   3.5233183516382036`*^9}, {3.536542725780803*^9, 3.536542725780803*^9}, {
   3.5367764878952584`*^9, 3.5367764886452594`*^9}, {3.544322815209103*^9, 
   3.5443228192963104`*^9}, {3.5450662624913826`*^9, 3.545066292141424*^9}, {
   3.545066402271579*^9, 3.5450664054415827`*^9}, {3.5450834884295015`*^9, 
   3.5450834895895033`*^9}, {3.5454961263762493`*^9, 
   3.5454961321462574`*^9}, {3.5454963863166127`*^9, 
   3.5454964580867133`*^9}, {3.545497046127537*^9, 3.545497046127537*^9}, {
   3.5454971130676303`*^9, 3.545497136257663*^9}, 3.545610399977621*^9, {
   3.546040778592962*^9, 3.546040778592962*^9}, {3.5461052065706367`*^9, 
   3.5461052249474688`*^9}, {3.546191339879622*^9, 3.5461913430596266`*^9}, {
   3.5462141824067917`*^9, 3.5462142145768366`*^9}, {3.5462145455473003`*^9, 
   3.5462145601073203`*^9}, {3.5463149785974817`*^9, 
   3.5463149794195285`*^9}, {3.5488738437683954`*^9, 
   3.5488738699084315`*^9}, {3.5488890647645535`*^9, 3.548889080804576*^9}, {
   3.5505951583099127`*^9, 3.5505951620351257`*^9}, {3.5758457803910656`*^9, 
   3.5758457938510847`*^9}, {3.5758458780912023`*^9, 
   3.5758458797312045`*^9}, {3.5758460250714083`*^9, 3.575846028691413*^9}, {
   3.5758461031815176`*^9, 3.575846103681518*^9}, {3.5758463018517957`*^9, 
   3.5758463042917986`*^9}, {3.5758464155019546`*^9, 3.575846417191957*^9}, {
   3.5758465224621043`*^9, 3.5758465297321143`*^9}, {3.586110883301344*^9, 
   3.5861109115613837`*^9}, {3.586189963835286*^9, 3.586189963835286*^9}, {
   3.5861901083579884`*^9, 3.5861901105479918`*^9}, {3.6219786145214176`*^9, 
   3.6219786145214176`*^9}, {3.7164451309563828`*^9, 
   3.7164451309563828`*^9}, {3.716495843763009*^9, 3.716495843763009*^9}, {
   3.717096908709983*^9, 3.717096908709983*^9}, {3.717102695864036*^9, 
   3.717102695864036*^9}, {3.746120620425974*^9, 3.746120620425974*^9}},
 TextAlignment->Center,
 FontWeight->"Bold"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{Cell[TextData[StyleBox["1:",
   FontFamily->"Arial",
   FontColor->RGBColor[1, 0, 0]]], "None"], "  ", 
  RowBox[{"\[Integral]", 
   RowBox[{
    SuperscriptBox[
     RowBox[{"(", 
      RowBox[{"d", "+", 
       RowBox[{"e", " ", 
        SuperscriptBox["x", "r"]}]}], ")"}], "q"], " ", 
    RowBox[{"(", 
     RowBox[{"a", "+", 
      RowBox[{"b", " ", 
       RowBox[{"Log", "[", 
        RowBox[{"c", " ", 
         SuperscriptBox["x", "n"]}], "]"}]}]}], ")"}], 
    RowBox[{"\[DifferentialD]", "x"}], "  ", 
    StyleBox["when",
     FontFamily->"Arial",
     FontWeight->"Plain"], 
    StyleBox["  ",
     FontFamily->"Arial",
     FontWeight->"Plain"], Cell[TextData[Cell[BoxData[
     RowBox[{"q", "\[Element]", 
      SuperscriptBox["\[DoubleStruckCapitalZ]", "+"]}]]]], 
     "None"]}]}]}]], "Subsubtitle",
 CellDingbat->None,
 CellChangeTimes->{
  3.477935275784027*^9, {3.477935350060832*^9, 3.477935352384173*^9}, {
   3.477935393803731*^9, 3.477935400102789*^9}, {3.477935515378547*^9, 
   3.47793552034569*^9}, 3.478120029940968*^9, {3.479318860690858*^9, 
   3.47931886615872*^9}, {3.4794185033278093`*^9, 3.479418503918659*^9}, 
   3.4795122294117584`*^9, {3.479615913307893*^9, 3.4796159352794867`*^9}, 
   3.4796160386581373`*^9, 3.4796867204045024`*^9, {3.4928025699585147`*^9, 
   3.492802570130115*^9}, 3.492822274480175*^9, 3.492825822242408*^9, {
   3.4940970615585365`*^9, 3.494097062168537*^9}, {3.496441349250718*^9, 
   3.496441349830719*^9}, 3.4964414848609076`*^9, 3.496521708137803*^9, {
   3.4965218981240697`*^9, 3.49652189838407*^9}, 3.4965229070755*^9, 
   3.519247079685614*^9, {3.5193208582062006`*^9, 3.5193208612170057`*^9}, 
   3.5193325694253187`*^9, {3.5193422443984776`*^9, 3.5193422447260776`*^9}, 
   3.5193424488212357`*^9, {3.5193434708254333`*^9, 3.519343473103037*^9}, {
   3.5193435097631016`*^9, 3.51934353169674*^9}, {3.519345739319023*^9, 
   3.519345739599823*^9}, 3.5193462601259375`*^9, {3.5193475061060295`*^9, 
   3.5193475233908596`*^9}, {3.519351391880224*^9, 3.5193513931402254`*^9}, {
   3.519403773021052*^9, 3.5194037798564425`*^9}, 3.5194106793250647`*^9, {
   3.519537578341393*^9, 3.5195375792305946`*^9}, {3.5195376277778797`*^9, 
   3.51953767927357*^9}, {3.5197586260636144`*^9, 3.5197586260636144`*^9}, {
   3.51978053295651*^9, 3.519780542862528*^9}, {3.5197806526087203`*^9, 
   3.5197806657595434`*^9}, {3.5197807490168896`*^9, 3.5197807642581167`*^9}, 
   3.5197809004619555`*^9, {3.519782653514635*^9, 3.5197826623286505`*^9}, {
   3.5200207810164795`*^9, 3.520020785046485*^9}, {3.5213126833374643`*^9, 
   3.5213126833374643`*^9}, {3.521328235411002*^9, 3.521328235411002*^9}, {
   3.523315567893022*^9, 3.523315567893022*^9}, {3.5233157569332867`*^9, 
   3.5233157613032923`*^9}, {3.5323023198133526`*^9, 3.532302355723403*^9}, {
   3.5323026417638035`*^9, 3.5323026417638035`*^9}, {3.5323026980138817`*^9, 
   3.5323026980138817`*^9}, {3.532636287104328*^9, 3.532636287104328*^9}, {
   3.5330803686035347`*^9, 3.533080368863535*^9}, {3.533248909289961*^9, 
   3.5332489110299635`*^9}, {3.534962469565694*^9, 3.5349624910757236`*^9}, {
   3.5349625224057674`*^9, 3.534962522655768*^9}, {3.534965265519608*^9, 
   3.534965265519608*^9}, {3.5349668288168063`*^9, 3.5349668292668066`*^9}, {
   3.5349747358481646`*^9, 3.5349747358481646`*^9}, {3.534975457949176*^9, 
   3.534975457949176*^9}, {3.5368633963532934`*^9, 3.536863396571694*^9}, {
   3.541644322511304*^9, 3.5416443577513533`*^9}, {3.5416458269234104`*^9, 
   3.541645839633428*^9}, {3.5416460312236967`*^9, 3.541646031483697*^9}, 
   3.541646227783972*^9, {3.541647080335165*^9, 3.5416471077052035`*^9}, {
   3.541648997607849*^9, 3.5416489978278494`*^9}, 3.541649088407976*^9, {
   3.5417848711596775`*^9, 3.541784902429721*^9}, {3.541786145331461*^9, 
   3.5417861455914617`*^9}, {3.5417870037166634`*^9, 3.5417870039366636`*^9}, 
   3.5462979620242105`*^9, {3.546298264094633*^9, 3.546298265344635*^9}, {
   3.546299000235664*^9, 3.546299001505666*^9}, {3.546315119909564*^9, 
   3.5463151267659564`*^9}, {3.547227356319705*^9, 3.547227356319705*^9}, 
   3.547918559331044*^9, {3.547918610170952*^9, 3.5479186304411116`*^9}, 
   3.548537755517557*^9, 3.5485441629685287`*^9, 3.5485517520154133`*^9, {
   3.5488740727887154`*^9, 3.5488740727887154`*^9}, {3.548874206618903*^9, 
   3.548874206808903*^9}, 3.548877100795455*^9, 3.550596464087599*^9, {
   3.5505965767870445`*^9, 3.5505965767870445`*^9}, 3.5505966202465305`*^9, {
   3.5506039138305197`*^9, 3.55060391400453*^9}, {3.5506040039986773`*^9, 
   3.550604005776779*^9}, {3.5506178888272758`*^9, 3.5506178900273447`*^9}, {
   3.5507714128001575`*^9, 3.5507714579237385`*^9}, 3.5507715736503572`*^9, {
   3.550771605757194*^9, 3.550771605757194*^9}, {3.5507784779162593`*^9, 
   3.550778485089669*^9}, {3.5512945755817485`*^9, 3.5512945774348545`*^9}, {
   3.5512950851568947`*^9, 3.551295087206012*^9}, {3.5512951503876257`*^9, 
   3.5512951503876257`*^9}, 3.5521508023707657`*^9, 3.570556429483124*^9, 
   3.570556813913662*^9, {3.570556871323742*^9, 3.5705568726537437`*^9}, {
   3.5705589342766304`*^9, 3.5705589351566315`*^9}, {3.5705726285190425`*^9, 
   3.5705726598690863`*^9}, {3.5705727092291555`*^9, 3.57057271224916*^9}, {
   3.570590818264614*^9, 3.570590830644632*^9}, {3.5705909646248198`*^9, 
   3.5705909676948233`*^9}, {3.5706259368541703`*^9, 
   3.5706259368541703`*^9}, {3.5706261207628937`*^9, 3.5706261259733024`*^9}, 
   3.6219635347757335`*^9, {3.6219636066848464`*^9, 3.6219636066848464`*^9}, 
   3.621963707855633*^9, {3.6219639063569865`*^9, 3.6219639063569865`*^9}, 
   3.621963999584319*^9, {3.621964297837378*^9, 3.621964332188343*^9}, 
   3.621978810333617*^9, {3.702790664787342*^9, 3.702790669151592*^9}, {
   3.702791728371044*^9, 3.702791752929449*^9}, {3.70279180505943*^9, 
   3.7027918059684825`*^9}, {3.702792310843214*^9, 3.7027923216488323`*^9}, {
   3.716146180617201*^9, 3.716146180988222*^9}, 3.716146268281215*^9, 
   3.716147479832512*^9, {3.7161478815074863`*^9, 3.7161478827545576`*^9}, {
   3.716148001980377*^9, 3.7161480022213907`*^9}, {3.7161487310220757`*^9, 
   3.7161487521682854`*^9}, {3.717089552397103*^9, 3.717089555190508*^9}, {
   3.7170897080711775`*^9, 3.7170897080711775`*^9}, 3.7170897786372595`*^9, {
   3.7170898316912937`*^9, 3.717089849503313*^9}, {3.7170903615068755`*^9, 
   3.717090366046135*^9}, {3.7170908333901424`*^9, 3.717090837000349*^9}, {
   3.7170933189428363`*^9, 3.7170933815839467`*^9}, 3.717093582645501*^9, {
   3.7170938977690077`*^9, 3.7170939070062246`*^9}, {3.7170968317616477`*^9, 
   3.7170968334776506`*^9}, {3.7171025150267463`*^9, 3.7171025216275578`*^9}, 
   3.717102558113423*^9, {3.717631877768054*^9, 3.717631877998067*^9}, {
   3.717638713072011*^9, 3.7176387132230196`*^9}, {3.7177017897031126`*^9, 
   3.717701789899124*^9}, {3.7177352608576655`*^9, 3.7177352611366816`*^9}, {
   3.717819826023097*^9, 3.7178198262431097`*^9}, {3.7178832164929333`*^9, 
   3.71788324510557*^9}, {3.7178833260191975`*^9, 3.7178833586220627`*^9}, {
   3.717883444648983*^9, 3.717883468831366*^9}, {3.7178849177682405`*^9, 
   3.717884926823758*^9}, {3.7178849924715133`*^9, 3.7178849924715133`*^9}, {
   3.7178850271264954`*^9, 3.7178850321787844`*^9}, {3.71788576640978*^9, 
   3.717885777916438*^9}, {3.7178862048408566`*^9, 3.717886205019867*^9}, 
   3.7179642461222153`*^9, {3.7179642934709234`*^9, 3.717964295634047*^9}, {
   3.717964345653908*^9, 3.7179643459389243`*^9}, {3.717964716630127*^9, 
   3.717964717691187*^9}, {3.7179647846400166`*^9, 3.7179647851190443`*^9}, {
   3.7179648570291567`*^9, 3.7179648572351685`*^9}, {3.71796899298572*^9, 
   3.71796899839703*^9}, {3.7179798439062724`*^9, 3.717979845644372*^9}, {
   3.7239483821752453`*^9, 3.723948384629386*^9}, {3.7241085702981834`*^9, 
   3.724108577642604*^9}, {3.724108753661671*^9, 3.724108754475718*^9}, {
   3.724186564728759*^9, 3.724186568178764*^9}, 3.7242973342259045`*^9, {
   3.7245254158844137`*^9, 3.7245254161474285`*^9}, 3.7461206871827917`*^9},
 FontSize->12,
 FontWeight->"Bold"],

Cell["Derivation: Integration by parts", "Subsubsection",
 CellChangeTimes->{
  3.479686820458373*^9, {3.490657960122612*^9, 3.49065796095366*^9}, 
   3.4940010628073196`*^9, 3.4941723607787027`*^9, 3.4941724567488375`*^9, 
   3.494172696119172*^9, 3.4951614417343683`*^9, 3.495161553867365*^9, 
   3.49516358311173*^9, 3.4951639989000616`*^9, 3.4951647977306643`*^9, 
   3.4952005105874176`*^9}],

Cell[TextData[{
 "Basis: ",
 Cell[BoxData[
  RowBox[{
   RowBox[{
    SubscriptBox["\[PartialD]", "x"], 
    RowBox[{"(", 
     RowBox[{"a", "+", 
      RowBox[{"b", " ", 
       RowBox[{"Log", "[", 
        RowBox[{"c", " ", 
         SuperscriptBox["x", "n"]}], "]"}]}]}], ")"}]}], "\[Equal]", 
   FractionBox[
    RowBox[{"b", " ", "n"}], "x"]}]],
  CellChangeTimes->{{3.6221403155250196`*^9, 3.622140370488164*^9}}]
}], "Subsubsection",
 CellDingbat->"\[FilledSmallSquare]",
 CellChangeTimes->{{3.4794189093216*^9, 3.479418932274605*^9}, {
   3.479418981395237*^9, 3.4794189822564754`*^9}, {3.4794192068193808`*^9, 
   3.4794192077607346`*^9}, 3.479420089138093*^9, {3.479420130978256*^9, 
   3.4794201410627565`*^9}, {3.479420560345656*^9, 3.479420578171288*^9}, {
   3.479420683943381*^9, 3.4794206847645617`*^9}, {3.4794210347678413`*^9, 
   3.4794210503903055`*^9}, 3.4803613662913427`*^9, {3.480361406058525*^9, 
   3.48036141974821*^9}, {3.4803614672865667`*^9, 3.480361474717252*^9}, 
   3.48070534977779*^9, {3.4928296953212276`*^9, 3.492829707041244*^9}, 
   3.4941724084687696`*^9, 3.4941724567488375`*^9, 3.494172783029294*^9, {
   3.495162076203082*^9, 3.495162102707529*^9}, {3.495162264932214*^9, 
   3.495162277318636*^9}, {3.4951637747120676`*^9, 3.495163775320469*^9}, {
   3.4951642488437004`*^9, 3.4951642509653044`*^9}, {3.4952359429371166`*^9, 
   3.495235964997147*^9}, {3.5507724578719325`*^9, 3.5507724578719325`*^9}, {
   3.551215434154563*^9, 3.5512154381107893`*^9}, {3.5705585033560266`*^9, 
   3.570558505956031*^9}, {3.570562116901086*^9, 3.5705621209010916`*^9}, {
   3.622139814321353*^9, 3.622139815121399*^9}, {3.6221402901635695`*^9, 
   3.6221403037323456`*^9}, {3.6221403610406237`*^9, 3.622140375305439*^9}, {
   3.71765378489107*^9, 3.7176538205501094`*^9}}],

Cell[TextData[{
 "Rule: If  ",
 Cell[BoxData[
  RowBox[{"q", "\[Element]", 
   SuperscriptBox["\[DoubleStruckCapitalZ]", "+"]}]]],
 ", let ",
 Cell[BoxData[
  RowBox[{"u", "\[Rule]", 
   RowBox[{"\[Integral]", 
    RowBox[{
     SuperscriptBox[
      RowBox[{"(", 
       RowBox[{"d", "+", 
        RowBox[{"e", " ", 
         SuperscriptBox["x", "r"]}]}], ")"}], "q"], 
     RowBox[{"\[DifferentialD]", "x"}]}]}]}]],
  CellChangeTimes->{{3.717885142565098*^9, 3.7178851742999134`*^9}}],
 ", then"
}], "Subsubsection",
 CellDingbat->"\[FilledSmallSquare]",
 CellChangeTimes->{{3.4794189093216*^9, 3.479418932274605*^9}, {
   3.479418981395237*^9, 3.4794189822564754`*^9}, {3.4794192068193808`*^9, 
   3.4794192077607346`*^9}, 3.479420089138093*^9, {3.479420130978256*^9, 
   3.4794201410627565`*^9}, {3.479420560345656*^9, 3.479420578171288*^9}, {
   3.479420683943381*^9, 3.4794206847645617`*^9}, {3.4794210347678413`*^9, 
   3.4794210503903055`*^9}, 3.4803613662913427`*^9, {3.480361406058525*^9, 
   3.48036141974821*^9}, {3.4803614672865667`*^9, 3.480361474717252*^9}, 
   3.48070534977779*^9, {3.4928296953212276`*^9, 3.492829707041244*^9}, 
   3.4941724084687696`*^9, 3.4941724567488375`*^9, 3.494172783029294*^9, {
   3.495162076203082*^9, 3.495162102707529*^9}, {3.495162264932214*^9, 
   3.495162277318636*^9}, {3.4951624969202213`*^9, 3.495162512208248*^9}, {
   3.4951627568718786`*^9, 3.4951627903339376`*^9}, {3.5507715824428606`*^9, 
   3.5507715974747205`*^9}, {3.551295058972397*^9, 3.5512950662198114`*^9}, {
   3.5706259391161747`*^9, 3.5706259391161747`*^9}, {3.5706261448181353`*^9, 
   3.5706261448181353`*^9}, {3.621963609569011*^9, 3.621963609569011*^9}, {
   3.621964345495104*^9, 3.621964345495104*^9}, {3.7027917306691756`*^9, 
   3.7027917537684965`*^9}, {3.7027918067845287`*^9, 3.702791806785529*^9}, {
   3.7027923275021667`*^9, 3.7027923275021667`*^9}, {3.7161478893629355`*^9, 
   3.7161478893629355`*^9}, {3.7161487602327466`*^9, 
   3.7161487602327466`*^9}, {3.7170897093035793`*^9, 
   3.7170897093035793`*^9}, {3.717089858854848*^9, 3.717089858854848*^9}, {
   3.7170904424085026`*^9, 3.7170904424085026`*^9}, {3.7170939135114355`*^9, 
   3.7170939135114355`*^9}, {3.7178835901923075`*^9, 
   3.7178835901923075`*^9}, {3.7178849988128757`*^9, 
   3.7178849988128757`*^9}, {3.71788518385246*^9, 3.7178851865096116`*^9}, {
   3.7178857825447025`*^9, 3.7178857825447025`*^9}, {3.7179643317771144`*^9, 
   3.7179643317771144`*^9}, {3.7179648190979877`*^9, 
   3.7179648195330124`*^9}, {3.71796900363933*^9, 3.7179690184511766`*^9}, {
   3.7241085847180085`*^9, 3.7241085847180085`*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{"\[Integral]", 
   RowBox[{
    SuperscriptBox[
     RowBox[{"(", 
      RowBox[{"d", "+", 
       RowBox[{"e", " ", 
        SuperscriptBox["x", "r"]}]}], ")"}], "q"], " ", 
    RowBox[{"(", 
     RowBox[{"a", "+", 
      RowBox[{"b", " ", 
       RowBox[{"Log", "[", 
        RowBox[{"c", " ", 
         SuperscriptBox["x", "n"]}], "]"}]}]}], ")"}], 
    RowBox[{"\[DifferentialD]", 
     RowBox[{"x", "  ", "\[LongRightArrow]", "  ", "u"}]}], " ", 
    RowBox[{"(", 
     RowBox[{"a", "+", 
      RowBox[{"b", " ", 
       RowBox[{"Log", "[", 
        RowBox[{"c", " ", 
         SuperscriptBox["x", "n"]}], "]"}]}]}], ")"}]}]}], "-", 
  RowBox[{"b", " ", "n", " ", 
   RowBox[{"\[Integral]", 
    RowBox[{
     FractionBox["u", "x"], 
     RowBox[{"\[DifferentialD]", "x"}]}]}]}]}]], "Subsubtitle",
 CellDingbat->None,
 CellChangeTimes->{{3.4796579732027807`*^9, 3.479658002474872*^9}, {
   3.4796580599975853`*^9, 3.4796580609489536`*^9}, {3.479658295195784*^9, 
   3.47965829684816*^9}, 3.4796611938939075`*^9, 3.4796613924794593`*^9, {
   3.479661443342597*^9, 3.479661446647349*^9}, {3.479661576554146*^9, 
   3.479661589302477*^9}, 3.479661847553824*^9, {3.4796622294729967`*^9, 
   3.4796622450654173`*^9}, {3.479686720424531*^9, 3.4796867204345455`*^9}, {
   3.4796874646646957`*^9, 3.4796874745589232`*^9}, {3.492826573513727*^9, 
   3.492826578630536*^9}, {3.4928267070863624`*^9, 3.492826707460763*^9}, 
   3.4928267903497095`*^9, {3.492829799151373*^9, 3.4928299617216005`*^9}, {
   3.4940972077187414`*^9, 3.4940972347887793`*^9}, {3.49409966398218*^9, 
   3.494099664952181*^9}, {3.4940997156722527`*^9, 3.494099716112253*^9}, 
   3.4941724567488375`*^9, {3.4941727384192314`*^9, 3.494172760679263*^9}, {
   3.495161485476845*^9, 3.4951615041032777`*^9}, 3.4951622258697453`*^9, 
   3.4951623402647467`*^9, 3.4951624589029546`*^9, {3.4951625764731617`*^9, 
   3.4951626064252143`*^9}, {3.4951628369780197`*^9, 
   3.4951628486156397`*^9}, {3.495162963603442*^9, 3.495162975147462*^9}, {
   3.4953186997347507`*^9, 3.49531874939482*^9}, {3.51595528804482*^9, 
   3.515955297467236*^9}, {3.5159554395714855`*^9, 3.5159554418334894`*^9}, {
   3.551294210163848*^9, 3.5512942133650312`*^9}, {3.5706258947184963`*^9, 
   3.57062591381293*^9}, {3.5706259678514247`*^9, 3.5706260736664104`*^9}, {
   3.570626196407426*^9, 3.570626203006238*^9}, {3.621963535689786*^9, 
   3.6219635366098385`*^9}, {3.621963590753935*^9, 3.6219636139572625`*^9}, 
   3.6219637084396667`*^9, {3.6219640002973595`*^9, 3.6219640436238375`*^9}, {
   3.6219643858204107`*^9, 3.6219644419626217`*^9}, {3.7027917317312365`*^9, 
   3.7027917562446384`*^9}, {3.70279180767458*^9, 3.7027918097967014`*^9}, {
   3.71614789100803*^9, 3.716147892972142*^9}, {3.716153844907136*^9, 
   3.7161538673254185`*^9}, {3.71708978773378*^9, 3.7170897955752287`*^9}, {
   3.7170911829391465`*^9, 3.717091197547982*^9}, {3.7170922197397356`*^9, 
   3.717092224918945*^9}, {3.71709359895553*^9, 3.7170936722322598`*^9}, {
   3.7171025583318233`*^9, 3.7171025583474236`*^9}, {3.717883519794281*^9, 
   3.717883562737737*^9}, 3.7178837350555935`*^9, {3.7178838156592035`*^9, 
   3.7178838423597307`*^9}, 3.7178839278516207`*^9, {3.7178839635326614`*^9, 
   3.7178839775684643`*^9}, {3.7178840237061033`*^9, 
   3.7178840240981255`*^9}, {3.7178850398812246`*^9, 3.717885050180814*^9}, {
   3.7178851351516743`*^9, 3.717885135451691*^9}, {3.7178854674886827`*^9, 
   3.717885502253671*^9}, {3.717964248849371*^9, 3.717964279066099*^9}, 
   3.717964381321948*^9, {3.717969043409604*^9, 3.717969043617616*^9}},
 TextAlignment->Center,
 FontSize->12,
 FontWeight->"Bold"],

Cell["Program code:", "Subsubsection",
 CellDingbat->"\[FilledSmallSquare]",
 CellChangeTimes->{{3.4794189093216*^9, 3.479418932274605*^9}, {
   3.479418981395237*^9, 3.4794189822564754`*^9}, {3.4794192068193808`*^9, 
   3.4794192077607346`*^9}, 3.479420089138093*^9, {3.479420130978256*^9, 
   3.4794201410627565`*^9}, {3.479420560345656*^9, 3.479420578171288*^9}, {
   3.479420683943381*^9, 3.4794206847645617`*^9}, {3.4794210347678413`*^9, 
   3.4794210503903055`*^9}, 3.4803613662913427`*^9, {3.480361406058525*^9, 
   3.48036141974821*^9}, {3.4803614672865667`*^9, 3.480361474717252*^9}, 
   3.4807050675119123`*^9, {3.492804314166378*^9, 3.4928043441496305`*^9}, {
   3.4928044532166224`*^9, 3.492804453513023*^9}, {3.492805162266266*^9, 
   3.492805165713872*^9}, 3.4941724567488375`*^9}],

Cell[BoxData[
 RowBox[{
  RowBox[{"Int", "[", 
   RowBox[{
    RowBox[{
     RowBox[{
      RowBox[{"(", 
       RowBox[{"d_", "+", 
        RowBox[{"e_.", "*", 
         RowBox[{"x_", "^", "r_."}]}]}], ")"}], "^", "q_."}], "*", 
     RowBox[{"(", 
      RowBox[{"a_.", "+", 
       RowBox[{"b_.", "*", 
        RowBox[{"Log", "[", 
         RowBox[{"c_.", "*", 
          RowBox[{"x_", "^", "n_."}]}], "]"}]}]}], ")"}]}], ",", "x_Symbol"}],
    "]"}], " ", ":=", "\n", "  ", 
  RowBox[{
   RowBox[{"With", "[", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{"u", "=", 
       RowBox[{"IntHide", "[", 
        RowBox[{
         RowBox[{
          RowBox[{"(", 
           RowBox[{"d", "+", 
            RowBox[{"e", "*", 
             RowBox[{"x", "^", "r"}]}]}], ")"}], "^", "q"}], ",", "x"}], 
        "]"}]}], "}"}], ",", "\n", "  ", 
     RowBox[{
      RowBox[{"u", "*", 
       RowBox[{"(", 
        RowBox[{"a", "+", 
         RowBox[{"b", "*", 
          RowBox[{"Log", "[", 
           RowBox[{"c", "*", 
            RowBox[{"x", "^", "n"}]}], "]"}]}]}], ")"}]}], " ", "-", " ", 
      RowBox[{"b", "*", "n", "*", 
       RowBox[{"Int", "[", 
        RowBox[{
         RowBox[{"SimplifyIntegrand", "[", 
          RowBox[{
           RowBox[{"u", "/", "x"}], ",", "x"}], "]"}], ",", "x"}], 
        "]"}]}]}]}], "]"}], " ", "/;", "\n", 
   RowBox[{
    RowBox[{"FreeQ", "[", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{
       "a", ",", "b", ",", "c", ",", "d", ",", "e", ",", "n", ",", "r"}], 
       "}"}], ",", "x"}], "]"}], " ", "&&", " ", 
    RowBox[{"IGtQ", "[", 
     RowBox[{"q", ",", "0"}], "]"}]}]}]}]], "Code",
 CellChangeTimes->{{3.494097279728842*^9, 3.494097309778884*^9}, {
   3.494099665582182*^9, 3.4940996672021847`*^9}, {3.4940997193022575`*^9, 
   3.494099719662258*^9}, 3.4941724567488375`*^9, 3.494172717389202*^9, 
   3.495161451843186*^9, 3.4951616878092003`*^9, 3.495162292263462*^9, 
   3.49516247887099*^9, 3.4951626919289646`*^9, 3.4951627504134674`*^9, 
   3.548733189244907*^9, 3.5487333497590876`*^9, {3.5512944878287296`*^9, 
   3.551294495263155*^9}, {3.551295101626837*^9, 3.5512951328186207`*^9}, {
   3.551295559331016*^9, 3.5512955650673437`*^9}, {3.5512971853300176`*^9, 
   3.5512971906853237`*^9}, {3.5512974190273843`*^9, 
   3.5512974239016633`*^9}, {3.5706262613191404`*^9, 
   3.5706262756867657`*^9}, {3.5706263647629223`*^9, 
   3.5706263775393443`*^9}, {3.57062648903274*^9, 3.5706265180175915`*^9}, {
   3.5709206646650977`*^9, 3.570920665995099*^9}, {3.5709207045951533`*^9, 
   3.5709207315751915`*^9}, {3.6219073135736685`*^9, 3.621907339923176*^9}, 
   3.6219075185103903`*^9, {3.6219075896854615`*^9, 3.621907603168233*^9}, {
   3.621963623637816*^9, 3.6219636248208838`*^9}, 3.621963764418868*^9, {
   3.621963845338496*^9, 3.6219638661946898`*^9}, {3.621964091441573*^9, 
   3.6219640960838385`*^9}, {3.6219641333489695`*^9, 
   3.6219641560752697`*^9}, {3.6219646436721587`*^9, 3.621964657890972*^9}, 
   3.621964721611616*^9, {3.6219745734062786`*^9, 3.6219745974996567`*^9}, {
   3.7027917362734957`*^9, 3.7027917608148994`*^9}, {3.7027918122318406`*^9, 
   3.7027918187672143`*^9}, {3.7027923914578247`*^9, 3.702792398659237*^9}, {
   3.7027924313881087`*^9, 3.702792439727586*^9}, {3.7161454735057564`*^9, 
   3.716145477852005*^9}, {3.716147897641409*^9, 3.7161479049908295`*^9}, {
   3.7161480052225623`*^9, 3.7161480077867093`*^9}, 3.7161486937069416`*^9, {
   3.7161487353143215`*^9, 3.716148738200486*^9}, 3.717089738357956*^9, {
   3.7170899085946927`*^9, 3.7170899336641264`*^9}, {3.7170900284394374`*^9, 
   3.7170900336498466`*^9}, {3.7170900937249017`*^9, 3.7170900968293076`*^9},
    {3.71709040808854*^9, 3.7170904301308007`*^9}, {3.7170908960575066`*^9, 
   3.7170908985399113`*^9}, {3.7170912112947683`*^9, 
   3.7170912303848605`*^9}, {3.717092249662588*^9, 3.717092257415802*^9}, 
   3.717092645991087*^9, {3.717093684199481*^9, 3.7170937043557167`*^9}, {
   3.7170937444193373`*^9, 3.717093752593752*^9}, {3.717093828043485*^9, 
   3.71709387080916*^9}, {3.717095411460695*^9, 3.7170954259349213`*^9}, {
   3.7170955229594917`*^9, 3.717095555907936*^9}, 3.717097286640851*^9, {
   3.71788406525548*^9, 3.7178841788899794`*^9}, {3.717884245218773*^9, 
   3.717884270587224*^9}, 3.717884316604856*^9, {3.7178849037924414`*^9, 
   3.717884910431821*^9}, {3.7178853956135716`*^9, 3.717885452487825*^9}, {
   3.717885537097664*^9, 3.717885538902767*^9}, {3.717885571091608*^9, 
   3.7178857157998853`*^9}, 3.717885901453504*^9, {3.717964370955355*^9, 
   3.717964372031417*^9}, {3.7179644152148867`*^9, 3.717964471691117*^9}, {
   3.717966830983061*^9, 3.717966831598096*^9}, {3.717969087759141*^9, 
   3.7179691024729824`*^9}, {3.723668377837527*^9, 3.723668452657632*^9}, {
   3.723668677677947*^9, 3.7236686839679556`*^9}, 3.7236687204680066`*^9, {
   3.723668788118101*^9, 3.7236687931581087`*^9}, 3.723749301696486*^9, {
   3.7241086238832483`*^9, 3.7241086823425922`*^9}, {3.7241087307383604`*^9, 
   3.7241087308903685`*^9}, {3.724108872058443*^9, 3.7241088825560436`*^9}, {
   3.7241091328203583`*^9, 3.724109134524455*^9}, {3.724110277736843*^9, 
   3.7241103567773647`*^9}, {3.724111544764313*^9, 3.7241115457513695`*^9}, {
   3.7241121433455505`*^9, 3.7241121491508822`*^9}, {3.724184004215174*^9, 
   3.724184024055202*^9}, 3.724291474246134*^9, {3.7243859494314203`*^9, 
   3.7243859679724813`*^9}, 3.7457964615495367`*^9, 3.7471486346808186`*^9, {
   3.7471724613098817`*^9, 3.7471724707166977`*^9}, {3.74723798337961*^9, 
   3.747237993823208*^9}, {3.7472381635309143`*^9, 3.7472381675001416`*^9}, {
   3.747238421386663*^9, 3.7472384423038597`*^9}, {3.7472393075083466`*^9, 
   3.7472393314877176`*^9}, {3.747240116958644*^9, 3.747240149687516*^9}, {
   3.7472454968033533`*^9, 3.747245513292297*^9}},
 Background->GrayLevel[0.85]],

Cell[BoxData[
 RowBox[{
  RowBox[{"Int", "[", 
   RowBox[{
    RowBox[{
     RowBox[{
      RowBox[{"(", 
       RowBox[{"d_", "+", 
        RowBox[{"e_.", "*", 
         RowBox[{"x_", "^", "r_."}]}]}], ")"}], "^", "q_."}], "*", 
     RowBox[{"(", 
      RowBox[{"a_.", "+", 
       RowBox[{"b_.", "*", 
        RowBox[{"Log", "[", 
         RowBox[{"c_.", "*", 
          RowBox[{"x_", "^", "n_."}]}], "]"}]}]}], ")"}]}], ",", "x_Symbol"}],
    "]"}], " ", ":=", "\n", "  ", 
  RowBox[{
   RowBox[{"With", "[", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{"u", "=", 
       RowBox[{"IntHide", "[", 
        RowBox[{
         RowBox[{
          RowBox[{"(", 
           RowBox[{"d", "+", 
            RowBox[{"e", "*", 
             RowBox[{"x", "^", "r"}]}]}], ")"}], "^", "q"}], ",", "x"}], 
        "]"}]}], "}"}], ",", "\n", "  ", 
     RowBox[{
      RowBox[{"Dist", "[", 
       RowBox[{
        RowBox[{"(", 
         RowBox[{"a", "+", 
          RowBox[{"b", "*", 
           RowBox[{"Log", "[", 
            RowBox[{"c", "*", 
             RowBox[{"x", "^", "n"}]}], "]"}]}]}], ")"}], ",", "u"}], "]"}], 
      " ", "-", " ", 
      RowBox[{"b", "*", "n", "*", 
       RowBox[{"Int", "[", 
        RowBox[{
         RowBox[{"SimplifyIntegrand", "[", 
          RowBox[{
           RowBox[{"u", "/", "x"}], ",", "x"}], "]"}], ",", "x"}], 
        "]"}]}]}]}], "]"}], " ", "/;", "\n", 
   RowBox[{
    RowBox[{"FreeQ", "[", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{
       "a", ",", "b", ",", "c", ",", "d", ",", "e", ",", "n", ",", "r"}], 
       "}"}], ",", "x"}], "]"}], " ", "&&", " ", 
    RowBox[{"IGtQ", "[", 
     RowBox[{"q", ",", "0"}], "]"}]}]}]}]], "Code",
 CellChangeTimes->{{3.494097279728842*^9, 3.494097309778884*^9}, {
   3.494099665582182*^9, 3.4940996672021847`*^9}, {3.4940997193022575`*^9, 
   3.494099719662258*^9}, 3.4941724567488375`*^9, 3.494172717389202*^9, 
   3.495161451843186*^9, 3.4951616878092003`*^9, 3.495162292263462*^9, 
   3.49516247887099*^9, 3.4951626919289646`*^9, 3.4951627504134674`*^9, 
   3.548733189244907*^9, 3.5487333497590876`*^9, {3.5512944878287296`*^9, 
   3.551294495263155*^9}, {3.551295101626837*^9, 3.5512951328186207`*^9}, {
   3.551295559331016*^9, 3.5512955650673437`*^9}, {3.5512971853300176`*^9, 
   3.5512971906853237`*^9}, {3.5512974190273843`*^9, 
   3.5512974239016633`*^9}, {3.5706262613191404`*^9, 
   3.5706262756867657`*^9}, {3.5706263647629223`*^9, 
   3.5706263775393443`*^9}, {3.57062648903274*^9, 3.5706265180175915`*^9}, {
   3.5709206646650977`*^9, 3.570920665995099*^9}, {3.5709207045951533`*^9, 
   3.5709207315751915`*^9}, {3.6219073135736685`*^9, 3.621907339923176*^9}, 
   3.6219075185103903`*^9, {3.6219075896854615`*^9, 3.621907603168233*^9}, {
   3.621963623637816*^9, 3.6219636248208838`*^9}, 3.621963764418868*^9, {
   3.621963845338496*^9, 3.6219638661946898`*^9}, {3.621964091441573*^9, 
   3.6219640960838385`*^9}, {3.6219641333489695`*^9, 
   3.6219641560752697`*^9}, {3.6219646436721587`*^9, 3.621964657890972*^9}, 
   3.621964721611616*^9, {3.6219745734062786`*^9, 3.6219745974996567`*^9}, {
   3.7027917362734957`*^9, 3.7027917608148994`*^9}, {3.7027918122318406`*^9, 
   3.7027918187672143`*^9}, {3.7027923914578247`*^9, 3.702792398659237*^9}, {
   3.7027924313881087`*^9, 3.702792439727586*^9}, {3.7161454735057564`*^9, 
   3.716145477852005*^9}, {3.716147897641409*^9, 3.7161479049908295`*^9}, {
   3.7161480052225623`*^9, 3.7161480077867093`*^9}, 3.7161486937069416`*^9, {
   3.7161487353143215`*^9, 3.716148738200486*^9}, 3.717089738357956*^9, {
   3.7170899085946927`*^9, 3.7170899336641264`*^9}, {3.7170900284394374`*^9, 
   3.7170900336498466`*^9}, {3.7170900937249017`*^9, 3.7170900968293076`*^9},
    {3.71709040808854*^9, 3.7170904301308007`*^9}, {3.7170908960575066`*^9, 
   3.7170908985399113`*^9}, {3.7170912112947683`*^9, 
   3.7170912303848605`*^9}, {3.717092249662588*^9, 3.717092257415802*^9}, 
   3.717092645991087*^9, {3.717093684199481*^9, 3.7170937043557167`*^9}, {
   3.7170937444193373`*^9, 3.717093752593752*^9}, {3.717093828043485*^9, 
   3.71709387080916*^9}, {3.717095411460695*^9, 3.7170954259349213`*^9}, {
   3.7170955229594917`*^9, 3.717095555907936*^9}, 3.717097286640851*^9, {
   3.71788406525548*^9, 3.7178841788899794`*^9}, {3.717884245218773*^9, 
   3.717884270587224*^9}, 3.717884316604856*^9, {3.7178849037924414`*^9, 
   3.717884910431821*^9}, {3.7178853956135716`*^9, 3.717885452487825*^9}, {
   3.717885537097664*^9, 3.717885538902767*^9}, {3.717885571091608*^9, 
   3.7178857157998853`*^9}, 3.717885901453504*^9, {3.717964370955355*^9, 
   3.717964372031417*^9}, {3.7179644152148867`*^9, 3.717964471691117*^9}, {
   3.717966830983061*^9, 3.717966831598096*^9}, {3.717969087759141*^9, 
   3.7179691024729824`*^9}, {3.723668377837527*^9, 3.723668452657632*^9}, {
   3.723668677677947*^9, 3.7236686839679556`*^9}, 3.7236687204680066`*^9, {
   3.723668788118101*^9, 3.7236687931581087`*^9}, 3.723749301696486*^9, {
   3.7241086238832483`*^9, 3.7241086823425922`*^9}, {3.7241087307383604`*^9, 
   3.7241087308903685`*^9}, {3.724108872058443*^9, 3.7241088825560436`*^9}, {
   3.7241091328203583`*^9, 3.724109134524455*^9}, {3.724110277736843*^9, 
   3.7241103567773647`*^9}, {3.724111544764313*^9, 3.7241115457513695`*^9}, {
   3.7241121433455505`*^9, 3.7241121491508822`*^9}, {3.724184004215174*^9, 
   3.724184024055202*^9}, 3.724291474246134*^9, {3.7243859494314203`*^9, 
   3.7243859679724813`*^9}, 3.7457964615495367`*^9, 3.7471486346808186`*^9, {
   3.7471724613098817`*^9, 3.7471724707166977`*^9}, {3.7472455007905817`*^9, 
   3.7472455236508894`*^9}},
 Background->GrayLevel[0.85]],

Cell["", "Subsubsection",
 CellDingbat->None,
 CellChangeTimes->{3.4796643211106243`*^9, 3.4941724567488375`*^9}]
}, Closed]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{Cell[TextData[StyleBox["2:",
   FontFamily->"Arial",
   FontColor->RGBColor[1, 0, 0]]], "None"], "  ", 
  RowBox[{"\[Integral]", 
   RowBox[{
    SuperscriptBox[
     RowBox[{"(", 
      RowBox[{"d", "+", 
       RowBox[{"e", " ", 
        SuperscriptBox["x", "r"]}]}], ")"}], "q"], " ", 
    RowBox[{"(", 
     RowBox[{"a", "+", 
      RowBox[{"b", " ", 
       RowBox[{"Log", "[", 
        RowBox[{"c", " ", 
         SuperscriptBox["x", "n"]}], "]"}]}]}], ")"}], 
    RowBox[{"\[DifferentialD]", "x"}], "  ", 
    StyleBox["when",
     FontFamily->"Arial",
     FontWeight->"Plain"], 
    StyleBox["  ",
     FontFamily->"Arial",
     FontWeight->"Plain"], Cell[TextData[Cell[BoxData[
     RowBox[{
      RowBox[{
       RowBox[{"r", 
        RowBox[{"(", 
         RowBox[{"q", "+", "1"}], ")"}]}], "+", "1"}], "\[Equal]", "0"}]]]], 
     "None"]}]}]}]], "Subsubtitle",
 CellDingbat->None,
 CellChangeTimes->{
  3.477935275784027*^9, {3.477935350060832*^9, 3.477935352384173*^9}, {
   3.477935393803731*^9, 3.477935400102789*^9}, {3.477935515378547*^9, 
   3.47793552034569*^9}, 3.478120029940968*^9, {3.479318860690858*^9, 
   3.47931886615872*^9}, {3.4794185033278093`*^9, 3.479418503918659*^9}, 
   3.4795122294117584`*^9, {3.479615913307893*^9, 3.4796159352794867`*^9}, 
   3.4796160386581373`*^9, 3.4796867204045024`*^9, {3.4928025699585147`*^9, 
   3.492802570130115*^9}, 3.492822274480175*^9, 3.492825822242408*^9, {
   3.4940970615585365`*^9, 3.494097062168537*^9}, {3.496441349250718*^9, 
   3.496441349830719*^9}, 3.4964414848609076`*^9, 3.496521708137803*^9, {
   3.4965218981240697`*^9, 3.49652189838407*^9}, 3.4965229070755*^9, 
   3.519247079685614*^9, {3.5193208582062006`*^9, 3.5193208612170057`*^9}, 
   3.5193325694253187`*^9, {3.5193422443984776`*^9, 3.5193422447260776`*^9}, 
   3.5193424488212357`*^9, {3.5193434708254333`*^9, 3.519343473103037*^9}, {
   3.5193435097631016`*^9, 3.51934353169674*^9}, {3.519345739319023*^9, 
   3.519345739599823*^9}, 3.5193462601259375`*^9, {3.5193475061060295`*^9, 
   3.5193475233908596`*^9}, {3.519351391880224*^9, 3.5193513931402254`*^9}, {
   3.519403773021052*^9, 3.5194037798564425`*^9}, 3.5194106793250647`*^9, {
   3.519537578341393*^9, 3.5195375792305946`*^9}, {3.5195376277778797`*^9, 
   3.51953767927357*^9}, {3.5197586260636144`*^9, 3.5197586260636144`*^9}, {
   3.51978053295651*^9, 3.519780542862528*^9}, {3.5197806526087203`*^9, 
   3.5197806657595434`*^9}, {3.5197807490168896`*^9, 3.5197807642581167`*^9}, 
   3.5197809004619555`*^9, {3.519782653514635*^9, 3.5197826623286505`*^9}, {
   3.5200207810164795`*^9, 3.520020785046485*^9}, {3.5213126833374643`*^9, 
   3.5213126833374643`*^9}, {3.521328235411002*^9, 3.521328235411002*^9}, {
   3.523315567893022*^9, 3.523315567893022*^9}, {3.5233157569332867`*^9, 
   3.5233157613032923`*^9}, {3.5323023198133526`*^9, 3.532302355723403*^9}, {
   3.5323026417638035`*^9, 3.5323026417638035`*^9}, {3.5323026980138817`*^9, 
   3.5323026980138817`*^9}, {3.532636287104328*^9, 3.532636287104328*^9}, {
   3.5330803686035347`*^9, 3.533080368863535*^9}, {3.533248909289961*^9, 
   3.5332489110299635`*^9}, {3.534962469565694*^9, 3.5349624910757236`*^9}, {
   3.5349625224057674`*^9, 3.534962522655768*^9}, {3.534965265519608*^9, 
   3.534965265519608*^9}, {3.5349668288168063`*^9, 3.5349668292668066`*^9}, {
   3.5349747358481646`*^9, 3.5349747358481646`*^9}, {3.534975457949176*^9, 
   3.534975457949176*^9}, {3.5368633963532934`*^9, 3.536863396571694*^9}, {
   3.541644322511304*^9, 3.5416443577513533`*^9}, {3.5416458269234104`*^9, 
   3.541645839633428*^9}, {3.5416460312236967`*^9, 3.541646031483697*^9}, 
   3.541646227783972*^9, {3.541647080335165*^9, 3.5416471077052035`*^9}, {
   3.541648997607849*^9, 3.5416489978278494`*^9}, 3.541649088407976*^9, {
   3.5417848711596775`*^9, 3.541784902429721*^9}, {3.541786145331461*^9, 
   3.5417861455914617`*^9}, {3.5417870037166634`*^9, 3.5417870039366636`*^9}, 
   3.5462979620242105`*^9, {3.546298264094633*^9, 3.546298265344635*^9}, {
   3.546299000235664*^9, 3.546299001505666*^9}, {3.546315119909564*^9, 
   3.5463151267659564`*^9}, {3.547227356319705*^9, 3.547227356319705*^9}, 
   3.547918559331044*^9, {3.547918610170952*^9, 3.5479186304411116`*^9}, 
   3.548537755517557*^9, 3.5485441629685287`*^9, 3.5485517520154133`*^9, {
   3.5488740727887154`*^9, 3.5488740727887154`*^9}, {3.548874206618903*^9, 
   3.548874206808903*^9}, 3.548877100795455*^9, 3.550596464087599*^9, {
   3.5505965767870445`*^9, 3.5505965767870445`*^9}, 3.5505966202465305`*^9, {
   3.5506039138305197`*^9, 3.55060391400453*^9}, {3.5506040039986773`*^9, 
   3.550604005776779*^9}, {3.5506178888272758`*^9, 3.5506178900273447`*^9}, {
   3.5507714128001575`*^9, 3.5507714579237385`*^9}, 3.5507715736503572`*^9, {
   3.550771605757194*^9, 3.550771605757194*^9}, {3.5507784779162593`*^9, 
   3.550778485089669*^9}, {3.5512945755817485`*^9, 3.5512945774348545`*^9}, {
   3.5512950851568947`*^9, 3.551295087206012*^9}, {3.5512951503876257`*^9, 
   3.5512951503876257`*^9}, 3.5521508023707657`*^9, 3.570556429483124*^9, 
   3.570556813913662*^9, {3.570556871323742*^9, 3.5705568726537437`*^9}, {
   3.5705589342766304`*^9, 3.5705589351566315`*^9}, {3.5705726285190425`*^9, 
   3.5705726598690863`*^9}, {3.5705727092291555`*^9, 3.57057271224916*^9}, {
   3.570590818264614*^9, 3.570590830644632*^9}, {3.5705909646248198`*^9, 
   3.5705909676948233`*^9}, {3.5706259368541703`*^9, 
   3.5706259368541703`*^9}, {3.5706261207628937`*^9, 3.5706261259733024`*^9}, 
   3.6219635347757335`*^9, {3.6219636066848464`*^9, 3.6219636066848464`*^9}, 
   3.621963707855633*^9, {3.6219639063569865`*^9, 3.6219639063569865`*^9}, 
   3.621963999584319*^9, {3.621964297837378*^9, 3.621964332188343*^9}, 
   3.621978810333617*^9, {3.702790664787342*^9, 3.702790669151592*^9}, {
   3.702791728371044*^9, 3.702791752929449*^9}, {3.70279180505943*^9, 
   3.7027918059684825`*^9}, {3.702792310843214*^9, 3.7027923216488323`*^9}, {
   3.716146180617201*^9, 3.716146180988222*^9}, 3.716146268281215*^9, 
   3.716147479832512*^9, {3.7161478815074863`*^9, 3.7161478827545576`*^9}, {
   3.716148001980377*^9, 3.7161480022213907`*^9}, {3.7161487310220757`*^9, 
   3.7161487521682854`*^9}, {3.717089552397103*^9, 3.717089555190508*^9}, {
   3.7170897080711775`*^9, 3.7170897080711775`*^9}, 3.7170897786372595`*^9, {
   3.7170898316912937`*^9, 3.717089849503313*^9}, {3.7170903615068755`*^9, 
   3.717090366046135*^9}, {3.7170908333901424`*^9, 3.717090837000349*^9}, {
   3.7170933189428363`*^9, 3.7170933815839467`*^9}, 3.717093582645501*^9, {
   3.7170938977690077`*^9, 3.7170939070062246`*^9}, {3.7170968317616477`*^9, 
   3.7170968334776506`*^9}, {3.7171025150267463`*^9, 3.7171025216275578`*^9}, 
   3.717102558113423*^9, {3.717631877768054*^9, 3.717631877998067*^9}, {
   3.717638713072011*^9, 3.7176387132230196`*^9}, {3.7177017897031126`*^9, 
   3.717701789899124*^9}, {3.7177352608576655`*^9, 3.7177352611366816`*^9}, {
   3.717819826023097*^9, 3.7178198262431097`*^9}, {3.7178832164929333`*^9, 
   3.71788324510557*^9}, {3.7178833260191975`*^9, 3.7178833586220627`*^9}, {
   3.717883444648983*^9, 3.717883468831366*^9}, {3.7178849177682405`*^9, 
   3.717884926823758*^9}, {3.7178849924715133`*^9, 3.7178849924715133`*^9}, {
   3.7178850271264954`*^9, 3.7178850321787844`*^9}, {3.71788576640978*^9, 
   3.717885777916438*^9}, {3.7178862048408566`*^9, 3.717886205019867*^9}, 
   3.7179642461222153`*^9, {3.7179642934709234`*^9, 3.717964295634047*^9}, {
   3.717964345653908*^9, 3.7179643459389243`*^9}, {3.717964716630127*^9, 
   3.717964717691187*^9}, {3.7179647846400166`*^9, 3.7179647851190443`*^9}, {
   3.7179648570291567`*^9, 3.7179648572351685`*^9}, {3.71796899298572*^9, 
   3.71796899839703*^9}, {3.7179798439062724`*^9, 3.717979845644372*^9}, {
   3.7239452586235895`*^9, 3.7239452874052353`*^9}, {3.7239455589577675`*^9, 
   3.7239455606438637`*^9}, 3.723945821764799*^9, {3.7239496869568744`*^9, 
   3.723949687507906*^9}, {3.7239503910111437`*^9, 3.723950411446313*^9}, 
   3.7240050252955256`*^9, {3.7242096534112167`*^9, 3.7242096536672316`*^9}, 
   3.7242907908750467`*^9, {3.724290827680152*^9, 3.724290834588547*^9}, {
   3.724290886289504*^9, 3.7242908862905045`*^9}, {3.7242912929427633`*^9, 
   3.724291293511796*^9}, {3.724291582965352*^9, 3.724291583330373*^9}, {
   3.7242969849139247`*^9, 3.7242970044850445`*^9}, {3.7245254175755105`*^9, 
   3.7245254177945232`*^9}, 3.7461206893109136`*^9},
 FontSize->12,
 FontWeight->"Bold"],

Cell["Derivation: Integration by parts", "Subsubsection",
 CellChangeTimes->{
  3.479686820458373*^9, {3.490657960122612*^9, 3.49065796095366*^9}, 
   3.4940010628073196`*^9, 3.4941723607787027`*^9, 3.4941724567488375`*^9, 
   3.494172696119172*^9, 3.4951614417343683`*^9, 3.495161553867365*^9, 
   3.49516358311173*^9, 3.4951639989000616`*^9, 3.4951647977306643`*^9, 
   3.4952005105874176`*^9}],

Cell[TextData[{
 "Basis:",
 " If  ",
 Cell[BoxData[
  RowBox[{
   RowBox[{
    RowBox[{"r", 
     RowBox[{"(", 
      RowBox[{"q", "+", "1"}], ")"}]}], "+", "1"}], "\[Equal]", "0"}]]],
 ", then",
 " ",
 Cell[BoxData[
  RowBox[{
   SuperscriptBox[
    RowBox[{"(", 
     RowBox[{"d", "+", 
      RowBox[{"e", " ", 
       SuperscriptBox["x", "r"]}]}], ")"}], "q"], "\[Equal]", 
   RowBox[{
    SubscriptBox["\[PartialD]", "x"], 
    FractionBox[
     RowBox[{"x", " ", 
      SuperscriptBox[
       RowBox[{"(", 
        RowBox[{"d", "+", 
         RowBox[{"e", " ", 
          SuperscriptBox["x", "r"]}]}], ")"}], 
       RowBox[{"q", "+", "1"}]]}], "d"]}]}]],
  CellChangeTimes->{{3.6221403155250196`*^9, 3.622140370488164*^9}}]
}], "Subsubsection",
 CellDingbat->"\[FilledSmallSquare]",
 CellChangeTimes->{{3.4794189093216*^9, 3.479418932274605*^9}, {
   3.479418981395237*^9, 3.4794189822564754`*^9}, {3.4794192068193808`*^9, 
   3.4794192077607346`*^9}, 3.479420089138093*^9, {3.479420130978256*^9, 
   3.4794201410627565`*^9}, {3.479420560345656*^9, 3.479420578171288*^9}, {
   3.479420683943381*^9, 3.4794206847645617`*^9}, {3.4794210347678413`*^9, 
   3.4794210503903055`*^9}, 3.4803613662913427`*^9, {3.480361406058525*^9, 
   3.48036141974821*^9}, {3.4803614672865667`*^9, 3.480361474717252*^9}, 
   3.48070534977779*^9, {3.4928296953212276`*^9, 3.492829707041244*^9}, 
   3.4941724084687696`*^9, 3.4941724567488375`*^9, 3.494172783029294*^9, {
   3.495162076203082*^9, 3.495162102707529*^9}, {3.495162264932214*^9, 
   3.495162277318636*^9}, {3.4951637747120676`*^9, 3.495163775320469*^9}, {
   3.4951642488437004`*^9, 3.4951642509653044`*^9}, {3.4952359429371166`*^9, 
   3.495235964997147*^9}, {3.5507724578719325`*^9, 3.5507724578719325`*^9}, {
   3.551215434154563*^9, 3.5512154381107893`*^9}, {3.5705585033560266`*^9, 
   3.570558505956031*^9}, {3.570562116901086*^9, 3.5705621209010916`*^9}, {
   3.622139814321353*^9, 3.622139815121399*^9}, {3.6221402901635695`*^9, 
   3.6221403037323456`*^9}, {3.6221403610406237`*^9, 3.622140375305439*^9}, {
   3.71765378489107*^9, 3.7176538205501094`*^9}, {3.7242899771445045`*^9, 
   3.724289981841773*^9}, {3.7242900413831787`*^9, 3.7242900413831787`*^9}, {
   3.724290619305234*^9, 3.7242906355951653`*^9}, {3.7242907467425227`*^9, 
   3.7242907467425227`*^9}, {3.7242908480923195`*^9, 
   3.7242908480923195`*^9}, {3.7242908939159403`*^9, 
   3.7242908939159403`*^9}, {3.72429701664974*^9, 3.7242970253332367`*^9}, {
   3.724297097086341*^9, 3.724297097086341*^9}}],

Cell[TextData[{
 "Rule: If  ",
 Cell[BoxData[
  RowBox[{
   RowBox[{
    RowBox[{"r", 
     RowBox[{"(", 
      RowBox[{"q", "+", "1"}], ")"}]}], "+", "1"}], "\[Equal]", "0"}]]],
 ", then"
}], "Subsubsection",
 CellDingbat->"\[FilledSmallSquare]",
 CellChangeTimes->{{3.4794189093216*^9, 3.479418932274605*^9}, {
   3.479418981395237*^9, 3.4794189822564754`*^9}, {3.4794192068193808`*^9, 
   3.4794192077607346`*^9}, 3.479420089138093*^9, {3.479420130978256*^9, 
   3.4794201410627565`*^9}, {3.479420560345656*^9, 3.479420578171288*^9}, {
   3.479420683943381*^9, 3.4794206847645617`*^9}, {3.4794210347678413`*^9, 
   3.4794210503903055`*^9}, 3.4803613662913427`*^9, {3.480361406058525*^9, 
   3.48036141974821*^9}, {3.4803614672865667`*^9, 3.480361474717252*^9}, 
   3.48070534977779*^9, {3.4928296953212276`*^9, 3.492829707041244*^9}, 
   3.4941724084687696`*^9, 3.4941724567488375`*^9, 3.494172783029294*^9, {
   3.495162076203082*^9, 3.495162102707529*^9}, {3.495162264932214*^9, 
   3.495162277318636*^9}, {3.4951624969202213`*^9, 3.495162512208248*^9}, {
   3.4951627568718786`*^9, 3.4951627903339376`*^9}, {3.5507715824428606`*^9, 
   3.5507715974747205`*^9}, {3.551295058972397*^9, 3.5512950662198114`*^9}, {
   3.5706259391161747`*^9, 3.5706259391161747`*^9}, {3.5706261448181353`*^9, 
   3.5706261448181353`*^9}, {3.621963609569011*^9, 3.621963609569011*^9}, {
   3.621964345495104*^9, 3.621964345495104*^9}, {3.7027917306691756`*^9, 
   3.7027917537684965`*^9}, {3.7027918067845287`*^9, 3.702791806785529*^9}, {
   3.7027923275021667`*^9, 3.7027923275021667`*^9}, {3.7161478893629355`*^9, 
   3.7161478893629355`*^9}, {3.7161487602327466`*^9, 
   3.7161487602327466`*^9}, {3.7170897093035793`*^9, 
   3.7170897093035793`*^9}, {3.717089858854848*^9, 3.717089858854848*^9}, {
   3.7170904424085026`*^9, 3.7170904424085026`*^9}, {3.7170939135114355`*^9, 
   3.7170939135114355`*^9}, {3.7178835901923075`*^9, 
   3.7178835901923075`*^9}, {3.7178849988128757`*^9, 
   3.7178849988128757`*^9}, {3.71788518385246*^9, 3.7178851865096116`*^9}, {
   3.7178857825447025`*^9, 3.7178857825447025`*^9}, {3.7179643317771144`*^9, 
   3.7179643317771144`*^9}, {3.7179648190979877`*^9, 
   3.7179648195330124`*^9}, {3.71796900363933*^9, 3.7179690184511766`*^9}, {
   3.723945407628112*^9, 3.7239454126904016`*^9}, {3.7239455861423225`*^9, 
   3.7239455861423225`*^9}, {3.723950416503602*^9, 3.723950416503602*^9}, {
   3.7242907795924015`*^9, 3.724290809449109*^9}, {3.7242908430450306`*^9, 
   3.7242908430450306`*^9}, {3.724290895704043*^9, 3.724290895704043*^9}, {
   3.7242970127445164`*^9, 3.7242970127445164`*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{"\[Integral]", 
   RowBox[{
    SuperscriptBox[
     RowBox[{"(", 
      RowBox[{"d", "+", 
       RowBox[{"e", " ", 
        SuperscriptBox["x", "r"]}]}], ")"}], "q"], " ", 
    RowBox[{"(", 
     RowBox[{"a", "+", 
      RowBox[{"b", " ", 
       RowBox[{"Log", "[", 
        RowBox[{"c", " ", 
         SuperscriptBox["x", "n"]}], "]"}]}]}], ")"}], 
    RowBox[{"\[DifferentialD]", 
     RowBox[{"x", "  ", "\[LongRightArrow]", "  ", 
      FractionBox[
       RowBox[{"x", " ", 
        SuperscriptBox[
         RowBox[{"(", 
          RowBox[{"d", "+", 
           RowBox[{"e", " ", 
            SuperscriptBox["x", "r"]}]}], ")"}], 
         RowBox[{"q", "+", "1"}]], " ", 
        RowBox[{"(", 
         RowBox[{"a", "+", 
          RowBox[{"b", " ", 
           RowBox[{"Log", "[", 
            RowBox[{"c", " ", 
             SuperscriptBox["x", "n"]}], "]"}]}]}], ")"}]}], "d"]}]}]}]}], 
  "-", 
  RowBox[{
   FractionBox[
    RowBox[{"b", " ", "n"}], "d"], 
   RowBox[{"\[Integral]", 
    RowBox[{
     SuperscriptBox[
      RowBox[{"(", 
       RowBox[{"d", "+", 
        RowBox[{"e", " ", 
         SuperscriptBox["x", "r"]}]}], ")"}], 
      RowBox[{"q", "+", "1"}]], 
     RowBox[{"\[DifferentialD]", "x"}]}]}]}]}]], "Subsubtitle",
 CellDingbat->None,
 CellChangeTimes->{{3.4796579732027807`*^9, 3.479658002474872*^9}, {
   3.4796580599975853`*^9, 3.4796580609489536`*^9}, {3.479658295195784*^9, 
   3.47965829684816*^9}, 3.4796611938939075`*^9, 3.4796613924794593`*^9, {
   3.479661443342597*^9, 3.479661446647349*^9}, {3.479661576554146*^9, 
   3.479661589302477*^9}, 3.479661847553824*^9, {3.4796622294729967`*^9, 
   3.4796622450654173`*^9}, {3.479686720424531*^9, 3.4796867204345455`*^9}, {
   3.4796874646646957`*^9, 3.4796874745589232`*^9}, {3.492826573513727*^9, 
   3.492826578630536*^9}, {3.4928267070863624`*^9, 3.492826707460763*^9}, 
   3.4928267903497095`*^9, {3.492829799151373*^9, 3.4928299617216005`*^9}, {
   3.4940972077187414`*^9, 3.4940972347887793`*^9}, {3.49409966398218*^9, 
   3.494099664952181*^9}, {3.4940997156722527`*^9, 3.494099716112253*^9}, 
   3.4941724567488375`*^9, {3.4941727384192314`*^9, 3.494172760679263*^9}, {
   3.495161485476845*^9, 3.4951615041032777`*^9}, 3.4951622258697453`*^9, 
   3.4951623402647467`*^9, 3.4951624589029546`*^9, {3.4951625764731617`*^9, 
   3.4951626064252143`*^9}, {3.4951628369780197`*^9, 
   3.4951628486156397`*^9}, {3.495162963603442*^9, 3.495162975147462*^9}, {
   3.4953186997347507`*^9, 3.49531874939482*^9}, {3.51595528804482*^9, 
   3.515955297467236*^9}, {3.5159554395714855`*^9, 3.5159554418334894`*^9}, {
   3.551294210163848*^9, 3.5512942133650312`*^9}, {3.5706258947184963`*^9, 
   3.57062591381293*^9}, {3.5706259678514247`*^9, 3.5706260736664104`*^9}, {
   3.570626196407426*^9, 3.570626203006238*^9}, {3.621963535689786*^9, 
   3.6219635366098385`*^9}, {3.621963590753935*^9, 3.6219636139572625`*^9}, 
   3.6219637084396667`*^9, {3.6219640002973595`*^9, 3.6219640436238375`*^9}, {
   3.6219643858204107`*^9, 3.6219644419626217`*^9}, {3.7027917317312365`*^9, 
   3.7027917562446384`*^9}, {3.70279180767458*^9, 3.7027918097967014`*^9}, {
   3.71614789100803*^9, 3.716147892972142*^9}, {3.716153844907136*^9, 
   3.7161538673254185`*^9}, {3.71708978773378*^9, 3.7170897955752287`*^9}, {
   3.7170911829391465`*^9, 3.717091197547982*^9}, {3.7170922197397356`*^9, 
   3.717092224918945*^9}, {3.71709359895553*^9, 3.7170936722322598`*^9}, {
   3.7171025583318233`*^9, 3.7171025583474236`*^9}, {3.717883519794281*^9, 
   3.717883562737737*^9}, 3.7178837350555935`*^9, {3.7178838156592035`*^9, 
   3.7178838423597307`*^9}, 3.7178839278516207`*^9, {3.7178839635326614`*^9, 
   3.7178839775684643`*^9}, {3.7178840237061033`*^9, 
   3.7178840240981255`*^9}, {3.7178850398812246`*^9, 3.717885050180814*^9}, {
   3.7178851351516743`*^9, 3.717885135451691*^9}, {3.7178854674886827`*^9, 
   3.717885502253671*^9}, {3.717964248849371*^9, 3.717964279066099*^9}, 
   3.717964381321948*^9, {3.717969043409604*^9, 3.717969043617616*^9}, {
   3.723945323271287*^9, 3.723945333570876*^9}, 3.723945573899622*^9, {
   3.723945953895357*^9, 3.723945955715461*^9}, {3.7239496899100437`*^9, 
   3.723949690272064*^9}, {3.723949841918738*^9, 3.7239498450289154`*^9}, {
   3.7239504198017907`*^9, 3.72395042223193*^9}, 3.7242907852947273`*^9, {
   3.7242909353893127`*^9, 3.72429101576991*^9}, 3.72429104951184*^9, {
   3.724297112393216*^9, 3.7242971603009567`*^9}},
 TextAlignment->Center,
 FontSize->12,
 FontWeight->"Bold"],

Cell["Program code:", "Subsubsection",
 CellDingbat->"\[FilledSmallSquare]",
 CellChangeTimes->{{3.4794189093216*^9, 3.479418932274605*^9}, {
   3.479418981395237*^9, 3.4794189822564754`*^9}, {3.4794192068193808`*^9, 
   3.4794192077607346`*^9}, 3.479420089138093*^9, {3.479420130978256*^9, 
   3.4794201410627565`*^9}, {3.479420560345656*^9, 3.479420578171288*^9}, {
   3.479420683943381*^9, 3.4794206847645617`*^9}, {3.4794210347678413`*^9, 
   3.4794210503903055`*^9}, 3.4803613662913427`*^9, {3.480361406058525*^9, 
   3.48036141974821*^9}, {3.4803614672865667`*^9, 3.480361474717252*^9}, 
   3.4807050675119123`*^9, {3.492804314166378*^9, 3.4928043441496305`*^9}, {
   3.4928044532166224`*^9, 3.492804453513023*^9}, {3.492805162266266*^9, 
   3.492805165713872*^9}, 3.4941724567488375`*^9}],

Cell[BoxData[
 RowBox[{
  RowBox[{"Int", "[", 
   RowBox[{
    RowBox[{
     RowBox[{
      RowBox[{"(", 
       RowBox[{"d_", "+", 
        RowBox[{"e_.", "*", 
         RowBox[{"x_", "^", "r_."}]}]}], ")"}], "^", "q_"}], "*", 
     RowBox[{"(", 
      RowBox[{"a_.", "+", 
       RowBox[{"b_.", "*", 
        RowBox[{"Log", "[", 
         RowBox[{"c_.", "*", 
          RowBox[{"x_", "^", "n_."}]}], "]"}]}]}], ")"}]}], ",", "x_Symbol"}],
    "]"}], " ", ":=", "\n", "  ", 
  RowBox[{
   RowBox[{
    RowBox[{"x", "*", 
     RowBox[{
      RowBox[{"(", 
       RowBox[{"d", "+", 
        RowBox[{"e", "*", 
         RowBox[{"x", "^", "r"}]}]}], ")"}], "^", 
      RowBox[{"(", 
       RowBox[{"q", "+", "1"}], ")"}]}], "*", 
     RowBox[{
      RowBox[{"(", 
       RowBox[{"a", "+", 
        RowBox[{"b", "*", 
         RowBox[{"Log", "[", 
          RowBox[{"c", "*", 
           RowBox[{"x", "^", "n"}]}], "]"}]}]}], ")"}], "/", "d"}]}], " ", 
    "-", " ", 
    RowBox[{"b", "*", 
     RowBox[{"n", "/", "d"}], "*", 
     RowBox[{"Int", "[", 
      RowBox[{
       RowBox[{
        RowBox[{"(", 
         RowBox[{"d", "+", 
          RowBox[{"e", "*", 
           RowBox[{"x", "^", "r"}]}]}], ")"}], "^", 
        RowBox[{"(", 
         RowBox[{"q", "+", "1"}], ")"}]}], ",", "x"}], "]"}]}]}], " ", "/;", 
   "\n", 
   RowBox[{
    RowBox[{"FreeQ", "[", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{
       "a", ",", "b", ",", "c", ",", "d", ",", "e", ",", "n", ",", "q", ",", 
        "r"}], "}"}], ",", "x"}], "]"}], " ", "&&", " ", 
    RowBox[{"EqQ", "[", 
     RowBox[{
      RowBox[{
       RowBox[{"r", "*", 
        RowBox[{"(", 
         RowBox[{"q", "+", "1"}], ")"}]}], "+", "1"}], ",", "0"}], 
     "]"}]}]}]}]], "Code",
 CellChangeTimes->{{3.494097279728842*^9, 3.494097309778884*^9}, {
   3.494099665582182*^9, 3.4940996672021847`*^9}, {3.4940997193022575`*^9, 
   3.494099719662258*^9}, 3.4941724567488375`*^9, 3.494172717389202*^9, 
   3.495161451843186*^9, 3.4951616878092003`*^9, 3.495162292263462*^9, 
   3.49516247887099*^9, 3.4951626919289646`*^9, 3.4951627504134674`*^9, 
   3.548733189244907*^9, 3.5487333497590876`*^9, {3.5512944878287296`*^9, 
   3.551294495263155*^9}, {3.551295101626837*^9, 3.5512951328186207`*^9}, {
   3.551295559331016*^9, 3.5512955650673437`*^9}, {3.5512971853300176`*^9, 
   3.5512971906853237`*^9}, {3.5512974190273843`*^9, 
   3.5512974239016633`*^9}, {3.5706262613191404`*^9, 
   3.5706262756867657`*^9}, {3.5706263647629223`*^9, 
   3.5706263775393443`*^9}, {3.57062648903274*^9, 3.5706265180175915`*^9}, {
   3.5709206646650977`*^9, 3.570920665995099*^9}, {3.5709207045951533`*^9, 
   3.5709207315751915`*^9}, {3.6219073135736685`*^9, 3.621907339923176*^9}, 
   3.6219075185103903`*^9, {3.6219075896854615`*^9, 3.621907603168233*^9}, {
   3.621963623637816*^9, 3.6219636248208838`*^9}, 3.621963764418868*^9, {
   3.621963845338496*^9, 3.6219638661946898`*^9}, {3.621964091441573*^9, 
   3.6219640960838385`*^9}, {3.6219641333489695`*^9, 
   3.6219641560752697`*^9}, {3.6219646436721587`*^9, 3.621964657890972*^9}, 
   3.621964721611616*^9, {3.6219745734062786`*^9, 3.6219745974996567`*^9}, {
   3.7027917362734957`*^9, 3.7027917608148994`*^9}, {3.7027918122318406`*^9, 
   3.7027918187672143`*^9}, {3.7027923914578247`*^9, 3.702792398659237*^9}, {
   3.7027924313881087`*^9, 3.702792439727586*^9}, {3.7161454735057564`*^9, 
   3.716145477852005*^9}, {3.716147897641409*^9, 3.7161479049908295`*^9}, {
   3.7161480052225623`*^9, 3.7161480077867093`*^9}, 3.7161486937069416`*^9, {
   3.7161487353143215`*^9, 3.716148738200486*^9}, 3.717089738357956*^9, {
   3.7170899085946927`*^9, 3.7170899336641264`*^9}, {3.7170900284394374`*^9, 
   3.7170900336498466`*^9}, {3.7170900937249017`*^9, 3.7170900968293076`*^9},
    {3.71709040808854*^9, 3.7170904301308007`*^9}, {3.7170908960575066`*^9, 
   3.7170908985399113`*^9}, {3.7170912112947683`*^9, 
   3.7170912303848605`*^9}, {3.717092249662588*^9, 3.717092257415802*^9}, 
   3.717092645991087*^9, {3.717093684199481*^9, 3.7170937043557167`*^9}, {
   3.7170937444193373`*^9, 3.717093752593752*^9}, {3.717093828043485*^9, 
   3.71709387080916*^9}, {3.717095411460695*^9, 3.7170954259349213`*^9}, {
   3.7170955229594917`*^9, 3.717095555907936*^9}, 3.717097286640851*^9, {
   3.71788406525548*^9, 3.7178841788899794`*^9}, {3.717884245218773*^9, 
   3.717884270587224*^9}, 3.717884316604856*^9, {3.7178849037924414`*^9, 
   3.717884910431821*^9}, {3.7178853956135716`*^9, 3.717885452487825*^9}, {
   3.717885537097664*^9, 3.717885538902767*^9}, {3.717885571091608*^9, 
   3.7178857157998853`*^9}, 3.717885901453504*^9, {3.717964370955355*^9, 
   3.717964372031417*^9}, {3.7179644152148867`*^9, 3.717964471691117*^9}, {
   3.717966830983061*^9, 3.717966831598096*^9}, {3.717969087759141*^9, 
   3.7179691024729824`*^9}, {3.723668377837527*^9, 3.723668452657632*^9}, {
   3.723668677677947*^9, 3.7236686839679556`*^9}, 3.7236687204680066`*^9, {
   3.723668788118101*^9, 3.7236687931581087`*^9}, 3.723749301696486*^9, 
   3.723945427925273*^9, {3.723945495070113*^9, 3.7239455155662856`*^9}, {
   3.7239455883644495`*^9, 3.723945591238614*^9}, {3.723945623934484*^9, 
   3.7239456295478053`*^9}, 3.723945758682191*^9, 3.7239499592394485`*^9, 
   3.723949992991379*^9, 3.723950077515213*^9, {3.7239502730583973`*^9, 
   3.723950280809841*^9}, 3.7239503583402753`*^9, {3.7239504340066032`*^9, 
   3.723950465385398*^9}, {3.724209644879729*^9, 3.7242096489449615`*^9}, {
   3.7242900587141695`*^9, 3.7242900613203187`*^9}, {3.7242910897181396`*^9, 
   3.7242911708107777`*^9}, 3.7242912244318447`*^9, {3.724297220404394*^9, 
   3.724297259386624*^9}},
 Background->GrayLevel[0.85]],

Cell["", "Subsubsection",
 CellDingbat->None,
 CellChangeTimes->{3.4796643211106243`*^9, 3.4941724567488375`*^9}]
}, Closed]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{Cell[TextData[StyleBox["x:",
   FontFamily->"Arial",
   FontColor->RGBColor[1, 0, 0]]], "None"], "  ", 
  RowBox[{"\[Integral]", 
   RowBox[{
    FractionBox[
     SuperscriptBox[
      RowBox[{"(", 
       RowBox[{"a", "+", 
        RowBox[{"b", " ", 
         RowBox[{"Log", "[", 
          RowBox[{"c", " ", 
           SuperscriptBox["x", "n"]}], "]"}]}]}], ")"}], "p"], 
     RowBox[{"d", "+", 
      RowBox[{"e", " ", 
       SuperscriptBox["x", "r"]}]}]], 
    RowBox[{"\[DifferentialD]", "x"}], "  ", 
    StyleBox["when",
     FontFamily->"Arial",
     FontWeight->"Plain"], 
    StyleBox["  ",
     FontFamily->"Arial",
     FontWeight->"Plain"], Cell[TextData[Cell[BoxData[
     RowBox[{
      RowBox[{"p", "\[Element]", 
       SuperscriptBox["\[DoubleStruckCapitalZ]", "+"]}], "\[And]", " ", 
      RowBox[{"r", "\[Element]", 
       SuperscriptBox["\[DoubleStruckCapitalZ]", "+"]}]}]]]], 
     "None"]}]}]}]], "Subsubtitle",
 CellDingbat->None,
 CellChangeTimes->{
  3.477935275784027*^9, {3.477935350060832*^9, 3.477935352384173*^9}, {
   3.477935393803731*^9, 3.477935400102789*^9}, {3.477935515378547*^9, 
   3.47793552034569*^9}, 3.478120029940968*^9, {3.479318860690858*^9, 
   3.47931886615872*^9}, {3.4794185033278093`*^9, 3.479418503918659*^9}, 
   3.4795122294117584`*^9, {3.479615913307893*^9, 3.4796159352794867`*^9}, 
   3.4796160386581373`*^9, 3.4796867204045024`*^9, {3.4928025699585147`*^9, 
   3.492802570130115*^9}, 3.492822274480175*^9, 3.492825822242408*^9, {
   3.4940970615585365`*^9, 3.494097062168537*^9}, {3.496441349250718*^9, 
   3.496441349830719*^9}, 3.4964414848609076`*^9, 3.496521708137803*^9, {
   3.4965218981240697`*^9, 3.49652189838407*^9}, 3.4965229070755*^9, 
   3.519247079685614*^9, {3.5193208582062006`*^9, 3.5193208612170057`*^9}, 
   3.5193325694253187`*^9, {3.5193422443984776`*^9, 3.5193422447260776`*^9}, 
   3.5193424488212357`*^9, {3.5193434708254333`*^9, 3.519343473103037*^9}, {
   3.5193435097631016`*^9, 3.51934353169674*^9}, {3.519345739319023*^9, 
   3.519345739599823*^9}, 3.5193462601259375`*^9, {3.5193475061060295`*^9, 
   3.5193475233908596`*^9}, {3.519351391880224*^9, 3.5193513931402254`*^9}, {
   3.519403773021052*^9, 3.5194037798564425`*^9}, 3.5194106793250647`*^9, {
   3.519537578341393*^9, 3.5195375792305946`*^9}, {3.5195376277778797`*^9, 
   3.51953767927357*^9}, {3.5197586260636144`*^9, 3.5197586260636144`*^9}, {
   3.51978053295651*^9, 3.519780542862528*^9}, {3.5197806526087203`*^9, 
   3.5197806657595434`*^9}, {3.5197807490168896`*^9, 3.5197807642581167`*^9}, 
   3.5197809004619555`*^9, {3.519782653514635*^9, 3.5197826623286505`*^9}, {
   3.5200207810164795`*^9, 3.520020785046485*^9}, {3.5213126833374643`*^9, 
   3.5213126833374643`*^9}, {3.521328235411002*^9, 3.521328235411002*^9}, {
   3.523315567893022*^9, 3.523315567893022*^9}, {3.5233157569332867`*^9, 
   3.5233157613032923`*^9}, {3.5323023198133526`*^9, 3.532302355723403*^9}, {
   3.5323026417638035`*^9, 3.5323026417638035`*^9}, {3.5323026980138817`*^9, 
   3.5323026980138817`*^9}, {3.532636287104328*^9, 3.532636287104328*^9}, {
   3.5330803686035347`*^9, 3.533080368863535*^9}, {3.533248909289961*^9, 
   3.5332489110299635`*^9}, {3.534962469565694*^9, 3.5349624910757236`*^9}, {
   3.5349625224057674`*^9, 3.534962522655768*^9}, {3.534965265519608*^9, 
   3.534965265519608*^9}, {3.5349668288168063`*^9, 3.5349668292668066`*^9}, {
   3.5349747358481646`*^9, 3.5349747358481646`*^9}, {3.534975457949176*^9, 
   3.534975457949176*^9}, {3.5368633963532934`*^9, 3.536863396571694*^9}, {
   3.541644322511304*^9, 3.5416443577513533`*^9}, {3.5416458269234104`*^9, 
   3.541645839633428*^9}, {3.5416460312236967`*^9, 3.541646031483697*^9}, 
   3.541646227783972*^9, {3.541647080335165*^9, 3.5416471077052035`*^9}, {
   3.541648997607849*^9, 3.5416489978278494`*^9}, 3.541649088407976*^9, {
   3.5417848711596775`*^9, 3.541784902429721*^9}, {3.541786145331461*^9, 
   3.5417861455914617`*^9}, {3.5417870037166634`*^9, 3.5417870039366636`*^9}, 
   3.5462979620242105`*^9, {3.546298264094633*^9, 3.546298265344635*^9}, {
   3.546299000235664*^9, 3.546299001505666*^9}, {3.546315119909564*^9, 
   3.5463151267659564`*^9}, {3.547227356319705*^9, 3.547227356319705*^9}, 
   3.547918559331044*^9, {3.547918610170952*^9, 3.5479186304411116`*^9}, 
   3.548537755517557*^9, 3.5485441629685287`*^9, 3.5485517520154133`*^9, {
   3.5488740727887154`*^9, 3.5488740727887154`*^9}, {3.548874206618903*^9, 
   3.548874206808903*^9}, 3.548877100795455*^9, 3.550596464087599*^9, {
   3.5505965767870445`*^9, 3.5505965767870445`*^9}, 3.5505966202465305`*^9, {
   3.5506039138305197`*^9, 3.55060391400453*^9}, {3.5506040039986773`*^9, 
   3.550604005776779*^9}, {3.5506178888272758`*^9, 3.5506178900273447`*^9}, {
   3.5506192681491685`*^9, 3.550619293563622*^9}, {3.5506195305301757`*^9, 
   3.550619538392626*^9}, 3.5508113633281665`*^9, {3.5508114161671886`*^9, 
   3.550811419328369*^9}, {3.5508116260871954`*^9, 3.5508116269802465`*^9}, {
   3.550811741020769*^9, 3.550811744393962*^9}, {3.5508130184278326`*^9, 
   3.5508130394230337`*^9}, {3.550850981139574*^9, 3.5508510096172028`*^9}, {
   3.5508511357854195`*^9, 3.5508511357854195`*^9}, 3.5513087127028403`*^9, {
   3.551326409634145*^9, 3.5513264112742386`*^9}, {3.5516384008854237`*^9, 
   3.551638414675848*^9}, {3.5516384656099377`*^9, 3.5516384656099377`*^9}, {
   3.5516386768187084`*^9, 3.5516386776455097`*^9}, {3.551638832084979*^9, 
   3.5516388370769873`*^9}, {3.5518228900107107`*^9, 
   3.5518228910507116`*^9}, {3.552152393661561*^9, 3.5521525488038335`*^9}, {
   3.715988546990713*^9, 3.7159886094652863`*^9}, {3.7159887409968095`*^9, 
   3.71598876669728*^9}, {3.7159888430336456`*^9, 3.7159888603756375`*^9}, {
   3.715988938007078*^9, 3.7159889444604473`*^9}, {3.7159892019431744`*^9, 
   3.715989203950289*^9}, {3.715989461232005*^9, 3.715989485856413*^9}, {
   3.7159943409351077`*^9, 3.7159943423291874`*^9}, {3.7164969267669535`*^9, 
   3.716496951118346*^9}, 3.7164970095716896`*^9, 3.716497071907255*^9, 
   3.7164972047388525`*^9, 3.716588443073154*^9, {3.716757845223197*^9, 
   3.716757845223197*^9}, 3.7167578754289246`*^9, {3.7167579281149383`*^9, 
   3.7167579281149383`*^9}, {3.7167581106793804`*^9, 3.716758125970255*^9}, 
   3.716758237158614*^9, {3.7167583170651846`*^9, 3.716758345791828*^9}, 
   3.716758578740152*^9, {3.716758617819387*^9, 3.716758618846446*^9}, {
   3.71675870756252*^9, 3.71675870756252*^9}, {3.716759193835333*^9, 
   3.7167592230890064`*^9}, 3.7245304006765275`*^9, {3.724530524242595*^9, 
   3.724530524242595*^9}, 3.7461243475741544`*^9, {3.7474343361943965`*^9, 
   3.7474343395182023`*^9}, {3.747434790331476*^9, 3.7474348177825503`*^9}, {
   3.7474349797241983`*^9, 3.747435011444459*^9}, {3.7474351295725613`*^9, 
   3.747435131416567*^9}, {3.7474352547324095`*^9, 3.747435264404457*^9}, {
   3.74743535205029*^9, 3.747435357206503*^9}, 3.747435526678282*^9, {
   3.747435586718012*^9, 3.7474355907040186`*^9}, {3.747435727250132*^9, 
   3.747435727530933*^9}, {3.7474358289094505`*^9, 3.747435888477196*^9}, {
   3.7474361321638627`*^9, 3.7474361382558737`*^9}, {3.747436216637714*^9, 
   3.7474362256053333`*^9}, {3.747445762467679*^9, 3.747445769351093*^9}, {
   3.7474462555064597`*^9, 3.7474462628024874`*^9}, {3.7474488296960416`*^9, 
   3.747448830120242*^9}, {3.7475385537545013`*^9, 3.7475385725305758`*^9}, {
   3.747539522126889*^9, 3.7475395230719433`*^9}},
 FontSize->12,
 FontWeight->"Bold"],

Cell["\<\
Derivation: Algebraic expansion\
\>", "Subsubsection",
 CellDingbat->"\[FilledSmallSquare]",
 CellChangeTimes->{{3.4794189093216*^9, 3.479418932274605*^9}, {
   3.479418981395237*^9, 3.4794189822564754`*^9}, {3.4794192068193808`*^9, 
   3.4794192077607346`*^9}, 3.479420089138093*^9, {3.479420130978256*^9, 
   3.4794201410627565`*^9}, {3.479420560345656*^9, 3.479420578171288*^9}, {
   3.479420683943381*^9, 3.4794206847645617`*^9}, {3.4794210347678413`*^9, 
   3.4794210503903055`*^9}, 3.4803613662913427`*^9, {3.480361406058525*^9, 
   3.48036141974821*^9}, {3.4803614672865667`*^9, 3.480361474717252*^9}, 
   3.48070534977779*^9, {3.4928296953212276`*^9, 3.492829707041244*^9}, 
   3.4941724084687696`*^9, 3.4941724567488375`*^9, 3.494172783029294*^9, {
   3.495162076203082*^9, 3.495162102707529*^9}, {3.495162264932214*^9, 
   3.495162277318636*^9}, {3.4951637747120676`*^9, 3.495163775320469*^9}, {
   3.4951642488437004`*^9, 3.4951642509653044`*^9}, {3.495200116396866*^9, 
   3.4952001199668703`*^9}, {3.495201853289297*^9, 3.4952018648993134`*^9}, {
   3.495202034479551*^9, 3.495202075309608*^9}, {3.4952022052197895`*^9, 
   3.495202209799796*^9}, {3.49520236235001*^9, 3.495202364530013*^9}, {
   3.4952024627101507`*^9, 3.495202466110155*^9}, {3.4952025192402296`*^9, 
   3.495202520900232*^9}, {3.4952025955103364`*^9, 3.4952026033603473`*^9}, {
   3.7159889490507097`*^9, 3.7159889633285265`*^9}, {3.7167578579469247`*^9, 
   3.716757858848976*^9}, {3.747434751940404*^9, 3.7474347561096115`*^9}}],

Cell[TextData[{
 "Basis: ",
 Cell[BoxData[
  RowBox[{
   FractionBox[
    SuperscriptBox["x", "m"], 
    RowBox[{"d", "+", 
     RowBox[{"e", " ", 
      SuperscriptBox["x", "r"]}]}]], "\[Equal]", 
   RowBox[{
    FractionBox[
     SuperscriptBox["x", 
      RowBox[{"m", "-", "r"}]], "e"], "-", 
    FractionBox[
     RowBox[{"d", " ", 
      SuperscriptBox["x", 
       RowBox[{"m", "-", "r"}]]}], 
     RowBox[{"e", " ", 
      RowBox[{"(", 
       RowBox[{"d", "+", 
        RowBox[{"e", " ", 
         SuperscriptBox["x", "r"]}]}], ")"}]}]]}]}]],
  CellChangeTimes->{{3.71848434613474*^9, 3.718484354983246*^9}, {
   3.71848442096602*^9, 3.718484480531427*^9}, {3.7184845474842567`*^9, 
   3.7184846362093315`*^9}, {3.718484680106842*^9, 3.7184847510869017`*^9}}]
}], "Subsubsection",
 CellDingbat->"\[FilledSmallSquare]",
 CellChangeTimes->{{3.4794189093216*^9, 3.479418932274605*^9}, {
   3.479418981395237*^9, 3.4794189822564754`*^9}, {3.4794192068193808`*^9, 
   3.4794192077607346`*^9}, 3.479420089138093*^9, {3.479420130978256*^9, 
   3.4794201410627565`*^9}, {3.479420560345656*^9, 3.479420578171288*^9}, {
   3.479420683943381*^9, 3.4794206847645617`*^9}, {3.4794210347678413`*^9, 
   3.4794210503903055`*^9}, 3.4803613662913427`*^9, {3.480361406058525*^9, 
   3.48036141974821*^9}, {3.4803614672865667`*^9, 3.480361474717252*^9}, 
   3.48070534977779*^9, {3.4928296953212276`*^9, 3.492829707041244*^9}, 
   3.4941724084687696`*^9, 3.4941724567488375`*^9, 3.494172783029294*^9, {
   3.495162076203082*^9, 3.495162102707529*^9}, {3.495162264932214*^9, 
   3.495162277318636*^9}, {3.4951637747120676`*^9, 3.495163775320469*^9}, {
   3.4951642488437004`*^9, 3.4951642509653044`*^9}, {3.495200116396866*^9, 
   3.4952001199668703`*^9}, {3.495201853289297*^9, 3.4952018648993134`*^9}, {
   3.495202034479551*^9, 3.495202075309608*^9}, {3.4952022052197895`*^9, 
   3.495202209799796*^9}, {3.49520236235001*^9, 3.495202364530013*^9}, {
   3.4952024627101507`*^9, 3.495202466110155*^9}, {3.4952025192402296`*^9, 
   3.495202520900232*^9}, {3.4952025955103364`*^9, 3.4952026033603473`*^9}, {
   3.7159889490507097`*^9, 3.7159889633285265`*^9}, {3.7167578579469247`*^9, 
   3.716757858848976*^9}, {3.7184847640746446`*^9, 3.7184847705430145`*^9}, {
   3.7184848234330397`*^9, 3.7184848234330397`*^9}, {3.7474347818618603`*^9, 
   3.7474347818618603`*^9}, {3.7474359332261357`*^9, 3.747435934183139*^9}, {
   3.747436008304184*^9, 3.747436008304184*^9}}],

Cell[TextData[{
 "Note: This rule produces antiderivatives in terms of ",
 Cell[BoxData[
  RowBox[{"PolyLog", "[", 
   RowBox[{"k", ",", 
    RowBox[{"-", 
     FractionBox["d", 
      RowBox[{"e", " ", 
       SuperscriptBox["x", "r"]}]]}]}], "]"}]],
  CellChangeTimes->{3.747539872199912*^9}]
}], "Subsubsection",
 CellDingbat->"\[FilledSmallSquare]",
 CellChangeTimes->{{3.4794189093216*^9, 3.479418932274605*^9}, {
   3.479418981395237*^9, 3.4794189822564754`*^9}, {3.4794192068193808`*^9, 
   3.4794192077607346`*^9}, 3.479420089138093*^9, {3.479420130978256*^9, 
   3.4794201410627565`*^9}, {3.479420560345656*^9, 3.479420578171288*^9}, {
   3.479420683943381*^9, 3.4794206847645617`*^9}, {3.4794210347678413`*^9, 
   3.4794210503903055`*^9}, 3.4803613662913427`*^9, {3.480361406058525*^9, 
   3.48036141974821*^9}, {3.4803614672865667`*^9, 3.480361474717252*^9}, 
   3.48070534977779*^9, {3.4928296953212276`*^9, 3.492829707041244*^9}, 
   3.4941724084687696`*^9, 3.4941724567488375`*^9, 3.494172783029294*^9, {
   3.495162076203082*^9, 3.495162102707529*^9}, {3.495162264932214*^9, 
   3.495162277318636*^9}, {3.4951637747120676`*^9, 3.495163775320469*^9}, {
   3.4951642488437004`*^9, 3.4951642509653044`*^9}, {3.495200116396866*^9, 
   3.4952001199668703`*^9}, {3.495201853289297*^9, 3.4952018648993134`*^9}, {
   3.495202034479551*^9, 3.495202075309608*^9}, {3.4952022052197895`*^9, 
   3.495202209799796*^9}, {3.49520236235001*^9, 3.495202364530013*^9}, {
   3.4952024627101507`*^9, 3.495202466110155*^9}, {3.4952025192402296`*^9, 
   3.495202520900232*^9}, {3.4952025955103364`*^9, 3.4952026033603473`*^9}, {
   3.7159889490507097`*^9, 3.7159889633285265`*^9}, {3.7167578579469247`*^9, 
   3.716757858848976*^9}, {3.747434751940404*^9, 3.7474347561096115`*^9}, {
   3.74753954608926*^9, 3.7475395708246746`*^9}, {3.747539883501559*^9, 
   3.7475399002525167`*^9}}],

Cell[TextData[{
 "Rule: If  ",
 Cell[BoxData[
  RowBox[{
   RowBox[{"p", "\[Element]", 
    SuperscriptBox["\[DoubleStruckCapitalZ]", "+"]}], "\[And]", " ", 
   RowBox[{"r", "\[Element]", 
    SuperscriptBox["\[DoubleStruckCapitalZ]", "+"]}]}]]],
 ", then"
}], "Subsubsection",
 CellDingbat->"\[FilledSmallSquare]",
 CellChangeTimes->{{3.4794189093216*^9, 3.479418932274605*^9}, {
   3.479418981395237*^9, 3.4794189822564754`*^9}, {3.4794192068193808`*^9, 
   3.4794192077607346`*^9}, 3.479420089138093*^9, {3.479420130978256*^9, 
   3.4794201410627565`*^9}, {3.479420560345656*^9, 3.479420578171288*^9}, {
   3.479420683943381*^9, 3.4794206847645617`*^9}, {3.4794210347678413`*^9, 
   3.4794210503903055`*^9}, 3.4803613662913427`*^9, {3.480361406058525*^9, 
   3.48036141974821*^9}, {3.4803614672865667`*^9, 3.480361474717252*^9}, 
   3.48070534977779*^9, {3.4928296953212276`*^9, 3.492829707041244*^9}, 
   3.4941724084687696`*^9, 3.4941724567488375`*^9, 3.494172783029294*^9, {
   3.495162076203082*^9, 3.495162102707529*^9}, {3.495162264932214*^9, 
   3.495162277318636*^9}, {3.4951637747120676`*^9, 3.495163775320469*^9}, {
   3.4951642488437004`*^9, 3.4951642509653044`*^9}, {3.4952359429371166`*^9, 
   3.495235964997147*^9}, {3.4952361839874535`*^9, 3.4952362099374905`*^9}, {
   3.495236384457734*^9, 3.4952364449378195`*^9}, {3.4952380492900653`*^9, 
   3.4952380558700743`*^9}, {3.5487130675286913`*^9, 
   3.5487130675286913`*^9}, {3.551910614598302*^9, 3.551910614598302*^9}, {
   3.5519106573483615`*^9, 3.5519106573483615`*^9}, {3.551913962162988*^9, 
   3.551913962162988*^9}, {3.552004958065936*^9, 3.552004958065936*^9}, {
   3.552005352089822*^9, 3.552005357752631*^9}, {3.552077282109287*^9, 
   3.552077282109287*^9}, {3.5520853822206273`*^9, 3.5520853822206273`*^9}, {
   3.622315777934103*^9, 3.6223157818313265`*^9}, {3.622395555826869*^9, 
   3.622395555826869*^9}, {3.622397238138092*^9, 3.6223972381390915`*^9}, {
   3.6223990535229263`*^9, 3.6223990535229263`*^9}, {3.6223995473111687`*^9, 
   3.6223995473111687`*^9}, {3.6223996219624386`*^9, 
   3.6223996286918235`*^9}, {3.6224200476677227`*^9, 
   3.6224200476677227`*^9}, {3.715989050350504*^9, 3.715989050350504*^9}, {
   3.7167578458292313`*^9, 3.7167578458292313`*^9}, {3.7167579124920444`*^9, 
   3.7167579188704095`*^9}, {3.7167581315605745`*^9, 
   3.7167581315605745`*^9}, {3.7167586503242464`*^9, 
   3.7167586503242464`*^9}, {3.716758712714815*^9, 3.716758712714815*^9}, {
   3.718484234783371*^9, 3.718484235737426*^9}, {3.724530527894804*^9, 
   3.724530527894804*^9}, {3.747435049981372*^9, 3.747435049981372*^9}, {
   3.747435379181945*^9, 3.747435379181945*^9}, {3.747435903928853*^9, 
   3.747435903928853*^9}, {3.747436143813484*^9, 3.747436143813484*^9}, {
   3.747436277948266*^9, 3.747436278464067*^9}, {3.7475385584387693`*^9, 
   3.7475385589778004`*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{"\[Integral]", 
   RowBox[{
    FractionBox[
     SuperscriptBox[
      RowBox[{"(", 
       RowBox[{"a", "+", 
        RowBox[{"b", " ", 
         RowBox[{"Log", "[", 
          RowBox[{"c", " ", 
           SuperscriptBox["x", "n"]}], "]"}]}]}], ")"}], "p"], 
     RowBox[{"d", "+", 
      RowBox[{"e", " ", 
       SuperscriptBox["x", "r"]}]}]], 
    RowBox[{"\[DifferentialD]", 
     RowBox[{"x", "  ", "\[LongRightArrow]", "  ", 
      FractionBox["1", "e"]}]}], " ", 
    RowBox[{"\[Integral]", 
     RowBox[{
      FractionBox[
       SuperscriptBox[
        RowBox[{"(", 
         RowBox[{"a", "+", 
          RowBox[{"b", " ", 
           RowBox[{"Log", "[", 
            RowBox[{"c", " ", 
             SuperscriptBox["x", "n"]}], "]"}]}]}], ")"}], "p"], 
       SuperscriptBox["x", "r"]], 
      RowBox[{"\[DifferentialD]", "x"}]}]}]}]}], "-", 
  RowBox[{
   FractionBox["d", "e"], " ", 
   RowBox[{"\[Integral]", 
    RowBox[{
     FractionBox[
      SuperscriptBox[
       RowBox[{"(", 
        RowBox[{"a", "+", 
         RowBox[{"b", " ", 
          RowBox[{"Log", "[", 
           RowBox[{"c", " ", 
            SuperscriptBox["x", "n"]}], "]"}]}]}], ")"}], "p"], 
      RowBox[{
       SuperscriptBox["x", "r"], " ", 
       RowBox[{"(", 
        RowBox[{"d", "+", 
         RowBox[{"e", " ", 
          SuperscriptBox["x", "r"]}]}], ")"}]}]], 
     RowBox[{"\[DifferentialD]", "x"}]}]}]}]}]], "Subsubtitle",
 CellDingbat->None,
 CellChangeTimes->{{3.4796579732027807`*^9, 3.479658002474872*^9}, {
   3.4796580599975853`*^9, 3.4796580609489536`*^9}, {3.479658295195784*^9, 
   3.47965829684816*^9}, 3.4796611938939075`*^9, 3.4796613924794593`*^9, {
   3.479661443342597*^9, 3.479661446647349*^9}, {3.479661576554146*^9, 
   3.479661589302477*^9}, 3.479661847553824*^9, {3.4796622294729967`*^9, 
   3.4796622450654173`*^9}, {3.479686720424531*^9, 3.4796867204345455`*^9}, {
   3.4796874646646957`*^9, 3.4796874745589232`*^9}, {3.492826573513727*^9, 
   3.492826578630536*^9}, {3.4928267070863624`*^9, 3.492826707460763*^9}, 
   3.4928267903497095`*^9, {3.492829799151373*^9, 3.4928299617216005`*^9}, {
   3.4940972077187414`*^9, 3.4940972347887793`*^9}, {3.49409966398218*^9, 
   3.494099664952181*^9}, {3.4940997156722527`*^9, 3.494099716112253*^9}, 
   3.4941724567488375`*^9, {3.4941727384192314`*^9, 3.494172760679263*^9}, {
   3.495161485476845*^9, 3.4951615041032777`*^9}, {3.495161845931078*^9, 
   3.4951618787379355`*^9}, {3.495163638398227*^9, 3.495163646853442*^9}, 
   3.49516370254554*^9, {3.495164038477331*^9, 3.4951640737177925`*^9}, 
   3.495199899876562*^9, 3.49519994111662*^9, {3.4952000649467936`*^9, 
   3.495200075966809*^9}, {3.4952019860094833`*^9, 3.4952019978094997`*^9}, 
   3.495202186849764*^9, {3.495202396160057*^9, 3.495202406320071*^9}, {
   3.495202538720257*^9, 3.4952025534702773`*^9}, 3.4952026366403937`*^9, {
   3.495202693010473*^9, 3.4952027377005353`*^9}, {3.495202830430665*^9, 
   3.4952028787207327`*^9}, {3.7159889732080913`*^9, 3.715989015454508*^9}, {
   3.7159891897184753`*^9, 3.7159891988309965`*^9}, 3.715989259077442*^9, {
   3.7159894989321613`*^9, 3.71598952007837*^9}, {3.716496927583*^9, 
   3.71649695362749*^9}, {3.716497016140065*^9, 3.7164970171241217`*^9}, {
   3.716497075627468*^9, 3.7164970765635214`*^9}, {3.716497208955094*^9, 
   3.716497209820143*^9}, {3.7164973045185595`*^9, 3.716497304959585*^9}, 
   3.716757878022073*^9, {3.7167579921406*^9, 3.7167580198501854`*^9}, {
   3.71675808077767*^9, 3.716758099412736*^9}, {3.7167581416941543`*^9, 
   3.7167581738509936`*^9}, 3.7167582404718037`*^9, {3.716758390293373*^9, 
   3.716758423836292*^9}, {3.7167594373432612`*^9, 3.7167594429125795`*^9}, {
   3.716759513972644*^9, 3.716759517182828*^9}, 3.71675955778115*^9, {
   3.718484840772032*^9, 3.718484862688285*^9}, {3.747434826692968*^9, 
   3.747434936472887*^9}, {3.7474350641312003`*^9, 3.747435064318401*^9}, {
   3.747436030827425*^9, 3.7474360462448645`*^9}, {3.747445782576317*^9, 
   3.7474458558674784`*^9}},
 TextAlignment->Center,
 FontSize->12,
 FontWeight->"Bold"],

Cell["Program code:", "Subsubsection",
 CellDingbat->"\[FilledSmallSquare]",
 CellChangeTimes->{{3.4794189093216*^9, 3.479418932274605*^9}, {
   3.479418981395237*^9, 3.4794189822564754`*^9}, {3.4794192068193808`*^9, 
   3.4794192077607346`*^9}, 3.479420089138093*^9, {3.479420130978256*^9, 
   3.4794201410627565`*^9}, {3.479420560345656*^9, 3.479420578171288*^9}, {
   3.479420683943381*^9, 3.4794206847645617`*^9}, {3.4794210347678413`*^9, 
   3.4794210503903055`*^9}, 3.4803613662913427`*^9, {3.480361406058525*^9, 
   3.48036141974821*^9}, {3.4803614672865667`*^9, 3.480361474717252*^9}, 
   3.4807050675119123`*^9, {3.492804314166378*^9, 3.4928043441496305`*^9}, {
   3.4928044532166224`*^9, 3.492804453513023*^9}, {3.492805162266266*^9, 
   3.492805165713872*^9}, 3.4941724567488375`*^9}],

Cell[BoxData[
 RowBox[{"(*", " ", 
  RowBox[{
   RowBox[{"Int", "[", 
    RowBox[{
     RowBox[{
      RowBox[{
       RowBox[{"(", 
        RowBox[{"a_.", "+", 
         RowBox[{"b_.", "*", 
          RowBox[{"Log", "[", 
           RowBox[{"c_.", "*", 
            RowBox[{"x_", "^", "n_."}]}], "]"}]}]}], ")"}], "^", "p_."}], "/", 
      RowBox[{"(", 
       RowBox[{"d_", "+", 
        RowBox[{"e_.", "*", 
         RowBox[{"x_", "^", "r_."}]}]}], ")"}]}], ",", "x_Symbol"}], "]"}], 
   " ", ":=", "\n", "  ", 
   RowBox[{
    RowBox[{
     RowBox[{
      RowBox[{"1", "/", "e"}], "*", 
      RowBox[{"Int", "[", 
       RowBox[{
        RowBox[{
         RowBox[{
          RowBox[{"(", 
           RowBox[{"a", "+", 
            RowBox[{"b", "*", 
             RowBox[{"Log", "[", 
              RowBox[{"c", "*", 
               RowBox[{"x", "^", "n"}]}], "]"}]}]}], ")"}], "^", "p"}], "/", 
         RowBox[{"x", "^", "r"}]}], ",", "x"}], "]"}]}], " ", "-", " ", "\n", 
     "  ", 
     RowBox[{
      RowBox[{"d", "/", "e"}], "*", 
      RowBox[{"Int", "[", 
       RowBox[{
        RowBox[{
         RowBox[{
          RowBox[{"(", 
           RowBox[{"a", "+", 
            RowBox[{"b", "*", 
             RowBox[{"Log", "[", 
              RowBox[{"c", "*", 
               RowBox[{"x", "^", "n"}]}], "]"}]}]}], ")"}], "^", "p"}], "/", 
         RowBox[{"(", 
          RowBox[{
           RowBox[{"x", "^", "r"}], "*", 
           RowBox[{"(", 
            RowBox[{"d", "+", 
             RowBox[{"e", "*", 
              RowBox[{"x", "^", "r"}]}]}], ")"}]}], ")"}]}], ",", "x"}], 
       "]"}]}]}], " ", "/;", "\n", 
    RowBox[{
     RowBox[{"FreeQ", "[", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{
        "a", ",", "b", ",", "c", ",", "d", ",", "e", ",", "n", ",", "r"}], 
        "}"}], ",", "x"}], "]"}], " ", "&&", " ", 
     RowBox[{"IGtQ", "[", 
      RowBox[{"p", ",", "0"}], "]"}], " ", "&&", " ", 
     RowBox[{"IGtQ", "[", 
      RowBox[{"r", ",", "0"}], "]"}]}]}]}], " ", "*)"}]], "Code",
 CellChangeTimes->{{3.494097279728842*^9, 3.494097309778884*^9}, {
   3.494099665582182*^9, 3.4940996672021847`*^9}, {3.4940997193022575`*^9, 
   3.494099719662258*^9}, 3.4941724567488375`*^9, 3.494172717389202*^9, 
   3.495161451843186*^9, 3.4951616675135646`*^9, 3.495163619631394*^9, 
   3.495164018025695*^9, 3.495199875426528*^9, 3.4952000136967216`*^9, 
   3.495201805939231*^9, 3.4952019420094213`*^9, 3.4952021430497026`*^9, {
   3.4952023111099377`*^9, 3.4952023425599823`*^9}, {3.4952024566001415`*^9, 
   3.495202471920163*^9}, 3.495202513800222*^9, 3.495202581400316*^9, 
   3.495202613140361*^9, 3.4952028098606367`*^9, {3.7159890665574303`*^9, 
   3.7159891477620754`*^9}, {3.7159892107606783`*^9, 3.715989245263652*^9}, {
   3.7159893162897143`*^9, 3.7159893341967387`*^9}, {3.71598938212848*^9, 
   3.7159894509794183`*^9}, 3.7159895819459095`*^9, {3.7159896193700495`*^9, 
   3.715989660667412*^9}, 3.715994229168715*^9, {3.7159952635368776`*^9, 
   3.715995275278549*^9}, {3.7164969544375362`*^9, 3.716496955885619*^9}, {
   3.716497022381422*^9, 3.716497027477714*^9}, {3.716497077845595*^9, 
   3.7164970994868326`*^9}, {3.7164972159094915`*^9, 3.7164972230699015`*^9}, 
   3.7164973336912284`*^9, {3.716497370193316*^9, 3.7164973930446234`*^9}, {
   3.7167584902130885`*^9, 3.716758548202405*^9}, {3.716758638210553*^9, 
   3.716758639743641*^9}, {3.716758722020347*^9, 3.716758726286591*^9}, {
   3.7167587903092527`*^9, 3.7167588274723787`*^9}, {3.716759609433104*^9, 
   3.7167596134673347`*^9}, {3.7167596664203634`*^9, 3.71675971933339*^9}, 
   3.7172735374421434`*^9, {3.7184849060547657`*^9, 3.718484927396986*^9}, 
   3.724006365386174*^9, 3.7241125159058595`*^9, {3.7245305359282637`*^9, 
   3.7245305402105083`*^9}, 3.7474353929143705`*^9, {3.7474354548311033`*^9, 
   3.747435501737006*^9}, {3.7474360888707695`*^9, 3.7474361145230293`*^9}, {
   3.747436148410694*^9, 3.7474361581277184`*^9}, {3.747436231696745*^9, 
   3.747436257488022*^9}, 3.7474450599742823`*^9, {3.7474461765586476`*^9, 
   3.7474462319338007`*^9}, {3.74744883419785*^9, 3.7474488396592607`*^9}, {
   3.74753856264701*^9, 3.747538566677241*^9}, {3.7475399283781257`*^9, 
   3.74753993387244*^9}},
 Background->GrayLevel[0.85]],

Cell["", "Subsubsection",
 CellDingbat->None,
 CellChangeTimes->{3.4796643211106243`*^9, 3.4941724567488375`*^9}]
}, Closed]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{Cell[TextData[StyleBox["3.",
   FontFamily->"Arial"]], "None"], "  ", 
  RowBox[{"\[Integral]", 
   RowBox[{
    SuperscriptBox[
     RowBox[{"(", 
      RowBox[{"d", "+", 
       RowBox[{"e", " ", "x"}]}], ")"}], "q"], " ", 
    SuperscriptBox[
     RowBox[{"(", 
      RowBox[{"a", "+", 
       RowBox[{"b", " ", 
        RowBox[{"Log", "[", 
         RowBox[{"c", " ", 
          SuperscriptBox["x", "n"]}], "]"}]}]}], ")"}], "p"], 
    RowBox[{"\[DifferentialD]", "x"}]}]}]}]], "Subsubtitle",
 CellDingbat->None,
 CellChangeTimes->{
  3.477935275784027*^9, {3.477935350060832*^9, 3.477935352384173*^9}, {
   3.477935393803731*^9, 3.477935400102789*^9}, {3.477935515378547*^9, 
   3.47793552034569*^9}, 3.478120029940968*^9, {3.479318860690858*^9, 
   3.47931886615872*^9}, {3.4794185033278093`*^9, 3.479418503918659*^9}, 
   3.4795122294117584`*^9, {3.479615913307893*^9, 3.4796159352794867`*^9}, 
   3.4796160386581373`*^9, 3.4796867204045024`*^9, {3.4928025699585147`*^9, 
   3.492802570130115*^9}, 3.492822274480175*^9, 3.492825822242408*^9, {
   3.4940970615585365`*^9, 3.494097062168537*^9}, {3.496441349250718*^9, 
   3.496441349830719*^9}, 3.4964414848609076`*^9, 3.496521708137803*^9, {
   3.4965218981240697`*^9, 3.49652189838407*^9}, 3.4965229070755*^9, 
   3.519247079685614*^9, {3.5193208582062006`*^9, 3.5193208612170057`*^9}, 
   3.5193325694253187`*^9, {3.5193415004828687`*^9, 3.5193415113404875`*^9}, {
   3.5193513965602303`*^9, 3.519351397420232*^9}, {3.5194037839416766`*^9, 
   3.5194037847117205`*^9}, 3.52105258275843*^9, 3.5210531741726685`*^9, {
   3.521057461672199*^9, 3.5210574760242243`*^9}, {3.521059881564049*^9, 
   3.521059886088057*^9}, {3.5213902158895197`*^9, 3.521390217543123*^9}, {
   3.521390827878595*^9, 3.521390829376197*^9}, {3.5214688792561245`*^9, 
   3.521468879443325*^9}, {3.523320201951167*^9, 3.523320202247567*^9}, {
   3.5288596764894824`*^9, 3.5288596768094826`*^9}, {3.529196266260353*^9, 
   3.5291962665099535`*^9}, {3.5291997050223927`*^9, 
   3.5291997052563934`*^9}, {3.529201346457276*^9, 3.529201347252877*^9}, {
   3.529285041073242*^9, 3.5292850412632427`*^9}, {3.529285215443486*^9, 
   3.529285215443486*^9}, {3.5295115356999426`*^9, 3.5295115433443794`*^9}, {
   3.529521412127842*^9, 3.529521414647986*^9}, {3.529529429975619*^9, 
   3.529529432955224*^9}, 3.5340074894011116`*^9, 3.5415537711400824`*^9, {
   3.5415538454742126`*^9, 3.54155384951462*^9}, {3.5417297197063265`*^9, 
   3.5417297252443366`*^9}, {3.546297494083555*^9, 3.5462974982435613`*^9}, {
   3.5462989134855423`*^9, 3.5462989153655453`*^9}, 3.548544146508506*^9, 
   3.5488738855784535`*^9, {3.5505953688729563`*^9, 3.5505953726861744`*^9}, 
   3.550771858531652*^9, {3.5507798163368125`*^9, 3.5507798167628365`*^9}, {
   3.550810430436808*^9, 3.550810430782828*^9}, {3.5513085224509587`*^9, 
   3.5513085267722063`*^9}, {3.5513263051951714`*^9, 
   3.5513263057772045`*^9}, {3.5521507775979223`*^9, 
   3.5521507793139253`*^9}, {3.5521518343281784`*^9, 
   3.5521518354513807`*^9}, {3.570556116362685*^9, 3.570556116362685*^9}, {
   3.570556384903061*^9, 3.5705564067030916`*^9}, {3.5705565154232435`*^9, 
   3.570556515653244*^9}, 3.570558825556478*^9, {3.5705869481991963`*^9, 
   3.5705869533292036`*^9}, 3.621900804633379*^9, 3.6219070314275312`*^9, {
   3.6219073832556543`*^9, 3.6219073832556543`*^9}, 3.6219787973808765`*^9, {
   3.6221642508690434`*^9, 3.622164251046054*^9}, {3.6226631569367566`*^9, 
   3.622663157136757*^9}, {3.7165730284444876`*^9, 3.7165730587152195`*^9}, {
   3.716573095366316*^9, 3.7165730972684245`*^9}, 3.716665843148676*^9, {
   3.7166659051992245`*^9, 3.716665905415237*^9}, {3.7179693557764707`*^9, 
   3.717969356068487*^9}, {3.717999163574092*^9, 3.71799916390211*^9}, {
   3.7241868008390894`*^9, 3.72418680103909*^9}, {3.7242973500498095`*^9, 
   3.724297350272822*^9}, 3.746120689925949*^9},
 FontSize->12,
 FontWeight->"Bold"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"\t", 
  RowBox[{Cell[TextData[StyleBox["1.",
    FontFamily->"Arial"]], "None"], "  ", 
   RowBox[{"\[Integral]", 
    RowBox[{
     SuperscriptBox[
      RowBox[{"(", 
       RowBox[{"d", "+", 
        RowBox[{"e", " ", "x"}]}], ")"}], "q"], " ", 
     SuperscriptBox[
      RowBox[{"(", 
       RowBox[{"a", "+", 
        RowBox[{"b", " ", 
         RowBox[{"Log", "[", 
          RowBox[{"c", " ", 
           SuperscriptBox["x", "n"]}], "]"}]}]}], ")"}], "p"], 
     RowBox[{"\[DifferentialD]", "x"}], "  ", 
     StyleBox["when",
      FontFamily->"Arial",
      FontWeight->"Plain"], 
     StyleBox["  ",
      FontFamily->"Arial",
      FontWeight->"Plain"], Cell[TextData[Cell[BoxData[
      RowBox[{"p", ">", "0"}]]]], "None"]}]}]}]}]], "Subsubtitle",
 CellDingbat->None,
 CellChangeTimes->{
  3.477935275784027*^9, {3.477935350060832*^9, 3.477935352384173*^9}, {
   3.477935393803731*^9, 3.477935400102789*^9}, {3.477935515378547*^9, 
   3.47793552034569*^9}, 3.478120029940968*^9, {3.479318860690858*^9, 
   3.47931886615872*^9}, {3.4794185033278093`*^9, 3.479418503918659*^9}, 
   3.4795122294117584`*^9, {3.479615913307893*^9, 3.4796159352794867`*^9}, 
   3.4796160386581373`*^9, 3.4796867204045024`*^9, {3.4928025699585147`*^9, 
   3.492802570130115*^9}, 3.492822274480175*^9, 3.492825822242408*^9, {
   3.4940970615585365`*^9, 3.494097062168537*^9}, {3.496441349250718*^9, 
   3.496441349830719*^9}, 3.4964414848609076`*^9, 3.496521708137803*^9, {
   3.4965218981240697`*^9, 3.49652189838407*^9}, 3.4965229070755*^9, 
   3.519247079685614*^9, {3.5193208582062006`*^9, 3.5193208612170057`*^9}, 
   3.5193325694253187`*^9, {3.5193415004828687`*^9, 3.5193415113404875`*^9}, {
   3.5193513965602303`*^9, 3.519351397420232*^9}, {3.5194037839416766`*^9, 
   3.5194037847117205`*^9}, 3.52105258275843*^9, 3.5210531741726685`*^9, {
   3.521057461672199*^9, 3.5210574760242243`*^9}, {3.521059881564049*^9, 
   3.521059886088057*^9}, {3.5213902158895197`*^9, 3.521390217543123*^9}, {
   3.521390827878595*^9, 3.521390829376197*^9}, {3.5214688792561245`*^9, 
   3.521468879443325*^9}, {3.523320201951167*^9, 3.523320202247567*^9}, {
   3.5288596764894824`*^9, 3.5288596768094826`*^9}, {3.529196266260353*^9, 
   3.5291962665099535`*^9}, {3.5291997050223927`*^9, 
   3.5291997052563934`*^9}, {3.529201346457276*^9, 3.529201347252877*^9}, {
   3.529285041073242*^9, 3.5292850412632427`*^9}, {3.529285215443486*^9, 
   3.529285215443486*^9}, {3.5295115356999426`*^9, 3.5295115433443794`*^9}, {
   3.529521412127842*^9, 3.529521414647986*^9}, {3.529529429975619*^9, 
   3.529529432955224*^9}, 3.5340074894011116`*^9, 3.5415537711400824`*^9, {
   3.5415538454742126`*^9, 3.54155384951462*^9}, {3.5417297197063265`*^9, 
   3.5417297252443366`*^9}, {3.546297494083555*^9, 3.5462974982435613`*^9}, {
   3.5462989134855423`*^9, 3.5462989153655453`*^9}, 3.548544146508506*^9, 
   3.5488738855784535`*^9, {3.5505953688729563`*^9, 3.5505953726861744`*^9}, 
   3.550771858531652*^9, {3.5507798163368125`*^9, 3.5507798167628365`*^9}, {
   3.550810430436808*^9, 3.550810430782828*^9}, {3.5513085224509587`*^9, 
   3.5513085267722063`*^9}, {3.5513263051951714`*^9, 
   3.5513263057772045`*^9}, {3.5521507775979223`*^9, 
   3.5521507793139253`*^9}, {3.5521518343281784`*^9, 
   3.5521518354513807`*^9}, {3.570556116362685*^9, 3.570556116362685*^9}, 
   3.570556409223095*^9, {3.5705564992132215`*^9, 3.5705565113332376`*^9}, 
   3.570558826166479*^9, 3.5705870168892927`*^9, {3.570587074559373*^9, 
   3.570587074559373*^9}, 3.6219070320815687`*^9, 3.621907092690035*^9, {
   3.6219071497542987`*^9, 3.6219071497542987`*^9}, {3.621907383806686*^9, 
   3.621907383806686*^9}, 3.621978798003912*^9, 3.716573125776055*^9, {
   3.716573158593932*^9, 3.7165732066106787`*^9}, 3.7165735365965524`*^9, 
   3.716665843913719*^9, 3.7461206904939814`*^9},
 FontSize->12,
 FontWeight->"Bold"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"\t\t", 
  RowBox[{Cell[TextData[StyleBox["1.",
    FontFamily->"Arial"]], "None"], "  ", 
   RowBox[{"\[Integral]", 
    RowBox[{
     FractionBox[
      SuperscriptBox[
       RowBox[{"(", 
        RowBox[{"a", "+", 
         RowBox[{"b", " ", 
          RowBox[{"Log", "[", 
           RowBox[{"c", " ", 
            SuperscriptBox["x", "n"]}], "]"}]}]}], ")"}], "p"], 
      RowBox[{"d", "+", 
       RowBox[{"e", " ", "x"}]}]], 
     RowBox[{"\[DifferentialD]", "x"}], "  ", 
     StyleBox["when",
      FontFamily->"Arial",
      FontWeight->"Plain"], 
     StyleBox["  ",
      FontFamily->"Arial",
      FontWeight->"Plain"], Cell[TextData[Cell[BoxData[
      RowBox[{"p", "\[Element]", 
       SuperscriptBox["\[DoubleStruckCapitalZ]", "+"]}]]]], 
      "None"]}]}]}]}]], "Subsubtitle",
 CellDingbat->None,
 CellChangeTimes->{
  3.477935275784027*^9, {3.477935350060832*^9, 3.477935352384173*^9}, {
   3.477935393803731*^9, 3.477935400102789*^9}, {3.477935515378547*^9, 
   3.47793552034569*^9}, 3.478120029940968*^9, {3.479318860690858*^9, 
   3.47931886615872*^9}, {3.4794185033278093`*^9, 3.479418503918659*^9}, 
   3.4795122294117584`*^9, {3.479615913307893*^9, 3.4796159352794867`*^9}, 
   3.4796160386581373`*^9, 3.4796867204045024`*^9, {3.4928025699585147`*^9, 
   3.492802570130115*^9}, 3.492822274480175*^9, 3.492825822242408*^9, {
   3.4940970615585365`*^9, 3.494097062168537*^9}, {3.496441349250718*^9, 
   3.496441349830719*^9}, 3.4964414848609076`*^9, 3.4964645213514385`*^9, 
   3.5192470594155855`*^9, {3.519247288125906*^9, 3.5192473207459517`*^9}, {
   3.519250976620308*^9, 3.5192509795375133`*^9}, 3.5192520188581386`*^9, {
   3.5193215829334736`*^9, 3.519321595725496*^9}, {3.5194112531544743`*^9, 
   3.5194112537784753`*^9}, {3.519411537636574*^9, 3.519411568711828*^9}, {
   3.519793882583559*^9, 3.519793883878361*^9}, {3.5214731238817034`*^9, 
   3.521473124371704*^9}, {3.523316505044334*^9, 3.523316505044334*^9}, {
   3.5233184226511183`*^9, 3.523318422861119*^9}, 3.5328367822219863`*^9, {
   3.5328742732655816`*^9, 3.5328742968684235`*^9}, {3.532874332701686*^9, 
   3.532874341843302*^9}, {3.532874546156861*^9, 3.532874552443672*^9}, {
   3.5328756408887835`*^9, 3.5328756426671867`*^9}, {3.5328756840852594`*^9, 
   3.532875690340871*^9}, {3.5328775995694237`*^9, 3.532877607619038*^9}, {
   3.5330804511936502`*^9, 3.5330804511936502`*^9}, {3.5330827213068285`*^9, 
   3.5330827218568287`*^9}, {3.5368634501889877`*^9, 
   3.5368634503449883`*^9}, {3.537654628221073*^9, 3.537654628221073*^9}, {
   3.5376556650325246`*^9, 3.5376556690825305`*^9}, {3.5376558319727583`*^9, 
   3.537655832122759*^9}, {3.5403190180369616`*^9, 3.540319018277975*^9}, {
   3.540320078404611*^9, 3.5403200969116697`*^9}, {3.54497301407633*^9, 
   3.5449730147315316`*^9}, {3.5449730455259857`*^9, 3.54497310485289*^9}, 
   3.5449734027198133`*^9, {3.544973705703545*^9, 3.5449737123023567`*^9}, {
   3.5449743847103376`*^9, 3.5449743847103376`*^9}, {3.5449897190542192`*^9, 
   3.5449897371142445`*^9}, 3.54501330464754*^9, 3.5450140205483975`*^9, {
   3.5450140745556927`*^9, 3.545014074867693*^9}, {3.545014174442668*^9, 
   3.5450141765018716`*^9}, 3.5450143633121996`*^9, {3.5450664467216406`*^9, 
   3.5450664468916407`*^9}, {3.5450708578278165`*^9, 3.545070858737818*^9}, {
   3.5454157832263145`*^9, 3.5454158086387587`*^9}, {3.5454238599089427`*^9, 
   3.5454238602689433`*^9}, 3.5454965482568398`*^9, {3.545497042817532*^9, 
   3.545497042817532*^9}, {3.545497076297579*^9, 3.5454970772875805`*^9}, {
   3.545503623646745*^9, 3.5455036255667477`*^9}, {3.546105323118441*^9, 
   3.5461053352552624`*^9}, 3.5462961408916607`*^9, {3.5462968426126432`*^9, 
   3.5462968519326563`*^9}, 3.546297534403612*^9, 3.5485441477885075`*^9, {
   3.548544198208578*^9, 3.548544198208578*^9}, 3.54887390449848*^9, {
   3.5488740223586454`*^9, 3.5488740437186747`*^9}, 3.5505963001042194`*^9, 
   3.550617921923169*^9, 3.5507717606460533`*^9, {3.55077830414032*^9, 
   3.550778319195181*^9}, {3.5507784268843403`*^9, 3.5507784268853407`*^9}, {
   3.5507784591171837`*^9, 3.550778461047294*^9}, 3.552150782558731*^9, 
   3.5705564125231*^9, 3.5705565446332846`*^9, {3.570556642263421*^9, 
   3.5705566474134283`*^9}, 3.5705588275264807`*^9, 3.5705870220492997`*^9, {
   3.570587078959379*^9, 3.570587078959379*^9}, {3.570634971207718*^9, 
   3.5706349714077187`*^9}, {3.5706402806526546`*^9, 3.5706402980826793`*^9}, 
   3.6219070354747624`*^9, 3.621907103394647*^9, {3.6219073891499915`*^9, 
   3.6219073891499915`*^9}, {3.621908028162541*^9, 3.621908028162541*^9}, 
   3.621978800210038*^9, 3.622138674627166*^9, {3.6226617948561287`*^9, 
   3.6226617948561287`*^9}, 3.7165731262610826`*^9, {3.7165731586119328`*^9, 
   3.7165731809862127`*^9}, {3.7165735378916264`*^9, 3.716573540027749*^9}, {
   3.7165776332678685`*^9, 3.716577636278041*^9}, 3.716665844499753*^9, 
   3.7461206909740086`*^9},
 FontSize->12,
 FontWeight->"Bold"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"\t\t\t", 
  RowBox[{Cell[TextData[StyleBox["1.",
    FontFamily->"Arial"]], "None"], "  ", 
   RowBox[{"\[Integral]", 
    RowBox[{
     FractionBox[
      RowBox[{"a", "+", 
       RowBox[{"b", " ", 
        RowBox[{"Log", "[", 
         RowBox[{"c", "  ", "x"}], "]"}]}]}], 
      RowBox[{"d", "+", 
       RowBox[{"e", " ", "x"}]}]], 
     RowBox[{"\[DifferentialD]", "x"}], "  ", 
     StyleBox["when",
      FontFamily->"Arial",
      FontWeight->"Plain"], 
     StyleBox["  ",
      FontFamily->"Arial",
      FontWeight->"Plain"], Cell[TextData[Cell[BoxData[
      RowBox[{
       RowBox[{"-", 
        FractionBox[
         RowBox[{"c", " ", "d"}], "e"]}], ">", "0"}]]]], 
      "None"]}]}]}]}]], "Subsubtitle",
 CellDingbat->None,
 CellChangeTimes->{
  3.477935275784027*^9, {3.477935350060832*^9, 3.477935352384173*^9}, {
   3.477935393803731*^9, 3.477935400102789*^9}, {3.477935515378547*^9, 
   3.47793552034569*^9}, 3.478120029940968*^9, {3.479318860690858*^9, 
   3.47931886615872*^9}, {3.4794185033278093`*^9, 3.479418503918659*^9}, 
   3.4795122294117584`*^9, {3.479615913307893*^9, 3.4796159352794867`*^9}, 
   3.4796160386581373`*^9, 3.4796867204045024`*^9, {3.4928025699585147`*^9, 
   3.492802570130115*^9}, 3.492822274480175*^9, 3.492825822242408*^9, {
   3.4940970615585365`*^9, 3.494097062168537*^9}, {3.496441349250718*^9, 
   3.496441349830719*^9}, 3.4964414848609076`*^9, 3.4964645213514385`*^9, 
   3.5192470594155855`*^9, {3.519247288125906*^9, 3.5192473207459517`*^9}, {
   3.519250976620308*^9, 3.5192509795375133`*^9}, 3.5192520188581386`*^9, {
   3.5193215829334736`*^9, 3.519321595725496*^9}, {3.5194112531544743`*^9, 
   3.5194112537784753`*^9}, {3.519411537636574*^9, 3.519411568711828*^9}, {
   3.519793882583559*^9, 3.519793883878361*^9}, {3.5214731238817034`*^9, 
   3.521473124371704*^9}, {3.523316505044334*^9, 3.523316505044334*^9}, {
   3.5233184226511183`*^9, 3.523318422861119*^9}, 3.5328367822219863`*^9, {
   3.5328742732655816`*^9, 3.5328742968684235`*^9}, {3.532874332701686*^9, 
   3.532874341843302*^9}, {3.532874546156861*^9, 3.532874552443672*^9}, {
   3.5328756408887835`*^9, 3.5328756426671867`*^9}, {3.5328756840852594`*^9, 
   3.532875690340871*^9}, {3.5328775995694237`*^9, 3.532877607619038*^9}, {
   3.5330804511936502`*^9, 3.5330804511936502`*^9}, {3.5330827213068285`*^9, 
   3.5330827218568287`*^9}, {3.5368634501889877`*^9, 
   3.5368634503449883`*^9}, {3.537654628221073*^9, 3.537654628221073*^9}, {
   3.5376556650325246`*^9, 3.5376556690825305`*^9}, {3.5376558319727583`*^9, 
   3.537655832122759*^9}, {3.5403190180369616`*^9, 3.540319018277975*^9}, {
   3.540320078404611*^9, 3.5403200969116697`*^9}, {3.54497301407633*^9, 
   3.5449730147315316`*^9}, {3.5449730455259857`*^9, 3.54497310485289*^9}, 
   3.5449734027198133`*^9, {3.544973705703545*^9, 3.5449737123023567`*^9}, {
   3.5449743847103376`*^9, 3.5449743847103376`*^9}, {3.5449897190542192`*^9, 
   3.5449897371142445`*^9}, 3.54501330464754*^9, 3.5450140205483975`*^9, {
   3.5450140745556927`*^9, 3.545014074867693*^9}, {3.545014174442668*^9, 
   3.5450141765018716`*^9}, 3.5450143633121996`*^9, {3.5450664467216406`*^9, 
   3.5450664468916407`*^9}, {3.5450708578278165`*^9, 3.545070858737818*^9}, {
   3.5454157832263145`*^9, 3.5454158086387587`*^9}, {3.5454238599089427`*^9, 
   3.5454238602689433`*^9}, 3.5454965482568398`*^9, {3.545497042817532*^9, 
   3.545497042817532*^9}, {3.545497076297579*^9, 3.5454970772875805`*^9}, {
   3.545503623646745*^9, 3.5455036255667477`*^9}, {3.546105323118441*^9, 
   3.5461053352552624`*^9}, 3.5462961408916607`*^9, {3.5462968426126432`*^9, 
   3.5462968519326563`*^9}, 3.546297534403612*^9, 3.5485441477885075`*^9, {
   3.548544198208578*^9, 3.548544198208578*^9}, 3.54887390449848*^9, {
   3.5488740223586454`*^9, 3.5488740437186747`*^9}, 3.5505963001042194`*^9, 
   3.550617921923169*^9, 3.5507717606460533`*^9, {3.55077830414032*^9, 
   3.550778319195181*^9}, {3.5507784268843403`*^9, 3.5507784268853407`*^9}, {
   3.5507784591171837`*^9, 3.550778461047294*^9}, 3.552150782558731*^9, 
   3.5705564125231*^9, 3.5705565446332846`*^9, {3.570556642263421*^9, 
   3.5705566474134283`*^9}, 3.5705588275264807`*^9, 3.5705870220492997`*^9, {
   3.570587078959379*^9, 3.570587078959379*^9}, {3.570634971207718*^9, 
   3.5706349714077187`*^9}, {3.5706402806526546`*^9, 3.5706402980826793`*^9}, 
   3.6219070354747624`*^9, 3.621907103394647*^9, {3.6219073891499915`*^9, 
   3.6219073891499915`*^9}, {3.621908028162541*^9, 3.621908028162541*^9}, 
   3.621978800210038*^9, 3.622138674627166*^9, {3.6221636210030174`*^9, 
   3.622163641962216*^9}, {3.6221664327588406`*^9, 3.622166436142034*^9}, 
   3.7165731586449347`*^9, {3.7165776454195633`*^9, 3.716577681124606*^9}, {
   3.7165780855257363`*^9, 3.716578089888986*^9}, 3.716579180450362*^9, 
   3.716665845035784*^9, 3.746120691447036*^9},
 FontSize->12,
 FontWeight->"Bold"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"\t\t\t\t", 
  RowBox[{Cell[TextData[StyleBox["1:",
    FontFamily->"Arial",
    FontColor->RGBColor[1, 0, 0]]], "None"], "  ", 
   RowBox[{"\[Integral]", 
    RowBox[{
     FractionBox[
      RowBox[{"Log", "[", 
       RowBox[{"c", " ", "x"}], "]"}], 
      RowBox[{"d", "+", 
       RowBox[{"e", " ", "x"}]}]], 
     RowBox[{"\[DifferentialD]", "x"}], "  ", 
     StyleBox["when",
      FontFamily->"Arial",
      FontWeight->"Plain"], 
     StyleBox["  ",
      FontFamily->"Arial",
      FontWeight->"Plain"], Cell[TextData[Cell[BoxData[
      RowBox[{
       RowBox[{"e", "+", 
        RowBox[{"c", " ", "d"}]}], "\[Equal]", "0"}]]]], 
      "None"]}]}]}]}]], "Subsubtitle",
 CellDingbat->None,
 CellChangeTimes->{
  3.477935275784027*^9, {3.477935350060832*^9, 3.477935352384173*^9}, {
   3.477935393803731*^9, 3.477935400102789*^9}, {3.477935515378547*^9, 
   3.47793552034569*^9}, 3.478120029940968*^9, {3.479318860690858*^9, 
   3.47931886615872*^9}, {3.4794185033278093`*^9, 3.479418503918659*^9}, 
   3.4795122294117584`*^9, {3.479615913307893*^9, 3.4796159352794867`*^9}, 
   3.4796160386581373`*^9, 3.4796867204045024`*^9, {3.4928025699585147`*^9, 
   3.492802570130115*^9}, 3.492822274480175*^9, 3.492825822242408*^9, {
   3.4940970615585365`*^9, 3.494097062168537*^9}, {3.496441349250718*^9, 
   3.496441349830719*^9}, 3.4964414848609076`*^9, 3.496521708137803*^9, {
   3.4965218981240697`*^9, 3.49652189838407*^9}, 3.4965229070755*^9, 
   3.519247079685614*^9, {3.5193208582062006`*^9, 3.5193208612170057`*^9}, 
   3.5193325694253187`*^9, {3.5193422443984776`*^9, 3.5193422447260776`*^9}, 
   3.5193424488212357`*^9, {3.5193434708254333`*^9, 3.519343473103037*^9}, {
   3.5193435097631016`*^9, 3.51934353169674*^9}, {3.519345739319023*^9, 
   3.519345739599823*^9}, 3.5193462601259375`*^9, {3.5193475061060295`*^9, 
   3.5193475233908596`*^9}, {3.519351391880224*^9, 3.5193513931402254`*^9}, {
   3.519403773021052*^9, 3.5194037798564425`*^9}, 3.5194106793250647`*^9, {
   3.519537578341393*^9, 3.5195375792305946`*^9}, {3.5195376277778797`*^9, 
   3.51953767927357*^9}, {3.5197586260636144`*^9, 3.5197586260636144`*^9}, {
   3.51978053295651*^9, 3.519780542862528*^9}, {3.5197806526087203`*^9, 
   3.5197806657595434`*^9}, {3.5197807490168896`*^9, 3.5197807642581167`*^9}, 
   3.5197809004619555`*^9, {3.519782653514635*^9, 3.5197826623286505`*^9}, {
   3.5200207810164795`*^9, 3.520020785046485*^9}, {3.5213126833374643`*^9, 
   3.5213126833374643`*^9}, {3.521328235411002*^9, 3.521328235411002*^9}, {
   3.523315567893022*^9, 3.523315567893022*^9}, {3.5233157569332867`*^9, 
   3.5233157613032923`*^9}, {3.5323023198133526`*^9, 3.532302355723403*^9}, {
   3.5323026417638035`*^9, 3.5323026417638035`*^9}, {3.5323026980138817`*^9, 
   3.5323026980138817`*^9}, {3.532636287104328*^9, 3.532636287104328*^9}, {
   3.5330803686035347`*^9, 3.533080368863535*^9}, {3.533248909289961*^9, 
   3.5332489110299635`*^9}, {3.534962469565694*^9, 3.5349624910757236`*^9}, {
   3.5349625224057674`*^9, 3.534962522655768*^9}, {3.534965265519608*^9, 
   3.534965265519608*^9}, {3.5349668288168063`*^9, 3.5349668292668066`*^9}, {
   3.5349747358481646`*^9, 3.5349747358481646`*^9}, {3.534975457949176*^9, 
   3.534975457949176*^9}, {3.5368633963532934`*^9, 3.536863396571694*^9}, {
   3.541644322511304*^9, 3.5416443577513533`*^9}, {3.5416458269234104`*^9, 
   3.541645839633428*^9}, {3.5416460312236967`*^9, 3.541646031483697*^9}, 
   3.541646227783972*^9, {3.541647080335165*^9, 3.5416471077052035`*^9}, {
   3.541648997607849*^9, 3.5416489978278494`*^9}, 3.541649088407976*^9, {
   3.5417848711596775`*^9, 3.541784902429721*^9}, {3.541786145331461*^9, 
   3.5417861455914617`*^9}, {3.5417870037166634`*^9, 3.5417870039366636`*^9}, 
   3.5462979620242105`*^9, {3.546298264094633*^9, 3.546298265344635*^9}, {
   3.546299000235664*^9, 3.546299001505666*^9}, {3.546315119909564*^9, 
   3.5463151267659564`*^9}, {3.547227356319705*^9, 3.547227356319705*^9}, 
   3.547918559331044*^9, {3.547918610170952*^9, 3.5479186304411116`*^9}, 
   3.548537755517557*^9, 3.5485441629685287`*^9, 3.5485517520154133`*^9, {
   3.5488740727887154`*^9, 3.5488740727887154`*^9}, {3.548874206618903*^9, 
   3.548874206808903*^9}, 3.548877100795455*^9, 3.550596464087599*^9, {
   3.5505965767870445`*^9, 3.5505965767870445`*^9}, 3.5505966202465305`*^9, {
   3.5506039138305197`*^9, 3.55060391400453*^9}, {3.5506040039986773`*^9, 
   3.550604005776779*^9}, {3.5506178888272758`*^9, 3.5506178900273447`*^9}, {
   3.5507714128001575`*^9, 3.5507714579237385`*^9}, 3.5507784736590157`*^9, 
   3.552150801528364*^9, 3.570556428533122*^9, {3.5705566808934755`*^9, 
   3.5705566808934755`*^9}, {3.5705567873636246`*^9, 3.5705567904936285`*^9}, 
   3.5705588281264815`*^9, {3.570587080169381*^9, 3.570587080169381*^9}, 
   3.5705871791295195`*^9, {3.570587863790478*^9, 3.5705878853505087`*^9}, {
   3.5706403002826824`*^9, 3.5706403541027575`*^9}, {3.570640799723381*^9, 
   3.5706408342234297`*^9}, 3.621907104273698*^9, 3.621907251836138*^9, {
   3.6219073896940227`*^9, 3.6219073896940227`*^9}, {3.6219081035798545`*^9, 
   3.6219081061360006`*^9}, {3.62196795695984*^9, 3.621967978665081*^9}, 
   3.6219788007330685`*^9, 3.6221386758432355`*^9, 3.6221636228151207`*^9, 
   3.716573158679937*^9, {3.7165776916902103`*^9, 3.7165777171896687`*^9}, 
   3.7165791821794615`*^9, 3.7166658455768147`*^9, 3.746120691934064*^9},
 FontSize->12,
 FontWeight->"Bold"],

Cell[TextData[{
 "Rule: If  ",
 Cell[BoxData[
  RowBox[{
   RowBox[{"e", "+", 
    RowBox[{"c", " ", "d"}]}], "\[Equal]", "0"}]]],
 ", then"
}], "Subsubsection",
 CellDingbat->"\[FilledSmallSquare]",
 CellChangeTimes->{{3.4794189093216*^9, 3.479418932274605*^9}, {
   3.479418981395237*^9, 3.4794189822564754`*^9}, {3.4794192068193808`*^9, 
   3.4794192077607346`*^9}, 3.479420089138093*^9, {3.479420130978256*^9, 
   3.4794201410627565`*^9}, {3.479420560345656*^9, 3.479420578171288*^9}, {
   3.479420683943381*^9, 3.4794206847645617`*^9}, {3.4794210347678413`*^9, 
   3.4794210503903055`*^9}, 3.4803613662913427`*^9, {3.480361406058525*^9, 
   3.48036141974821*^9}, {3.4803614672865667`*^9, 3.480361474717252*^9}, 
   3.48070534977779*^9, {3.4928296953212276`*^9, 3.492829707041244*^9}, 
   3.4941724084687696`*^9, 3.4941724567488375`*^9, 3.494172783029294*^9, {
   3.495162076203082*^9, 3.495162102707529*^9}, {3.495162264932214*^9, 
   3.495162277318636*^9}, {3.4951624969202213`*^9, 3.495162512208248*^9}, {
   3.5705567496335716`*^9, 3.5705567496335716`*^9}, {3.5705870820093837`*^9, 
   3.5705870820093837`*^9}, {3.570640980993635*^9, 3.570640980993635*^9}, {
   3.6219073902860565`*^9, 3.6219073902860565`*^9}, {3.621967997297147*^9, 
   3.621967997297147*^9}, {3.71657788766842*^9, 3.71657788766842*^9}}],

Cell[BoxData[
 RowBox[{"\[Integral]", 
  RowBox[{
   FractionBox[
    RowBox[{"Log", "[", 
     RowBox[{"c", " ", "x"}], "]"}], 
    RowBox[{"d", "+", 
     RowBox[{"e", " ", "x"}]}]], 
   RowBox[{"\[DifferentialD]", 
    RowBox[{"x", "  ", "\[LongRightArrow]", "  ", 
     RowBox[{"-", 
      FractionBox["1", "e"]}]}]}], 
   RowBox[{"PolyLog", "[", 
    RowBox[{"2", ",", 
     RowBox[{"1", "-", 
      RowBox[{"c", " ", "x"}]}]}], "]"}]}]}]], "Subsubtitle",
 CellDingbat->None,
 CellChangeTimes->{{3.4796579732027807`*^9, 3.479658002474872*^9}, {
   3.4796580599975853`*^9, 3.4796580609489536`*^9}, {3.479658295195784*^9, 
   3.47965829684816*^9}, 3.4796611938939075`*^9, 3.4796613924794593`*^9, {
   3.479661443342597*^9, 3.479661446647349*^9}, {3.479661576554146*^9, 
   3.479661589302477*^9}, 3.479661847553824*^9, {3.4796622294729967`*^9, 
   3.4796622450654173`*^9}, {3.479686720424531*^9, 3.4796867204345455`*^9}, {
   3.4796874646646957`*^9, 3.4796874745589232`*^9}, {3.492826573513727*^9, 
   3.492826578630536*^9}, {3.4928267070863624`*^9, 3.492826707460763*^9}, 
   3.4928267903497095`*^9, {3.492829799151373*^9, 3.4928299617216005`*^9}, {
   3.4940972077187414`*^9, 3.4940972347887793`*^9}, {3.49409966398218*^9, 
   3.494099664952181*^9}, {3.4940997156722527`*^9, 3.494099716112253*^9}, 
   3.4941724567488375`*^9, {3.4941727384192314`*^9, 3.494172760679263*^9}, {
   3.495161485476845*^9, 3.4951615041032777`*^9}, 3.4951622258697453`*^9, 
   3.4951623402647467`*^9, 3.4951624589029546`*^9, {3.4951625764731617`*^9, 
   3.4951626064252143`*^9}, {3.4953186283146505`*^9, 3.495318647014677*^9}, {
   3.515955273396394*^9, 3.515955281040407*^9}, 3.570556723273535*^9, {
   3.570587082829385*^9, 3.5705870835593863`*^9}, {3.5705871797995205`*^9, 
   3.570587181039522*^9}, {3.57058797972064*^9, 3.5705880707107677`*^9}, {
   3.5705881689309053`*^9, 3.570588169290906*^9}, 3.570588331051132*^9, {
   3.570640858803464*^9, 3.5706408862435026`*^9}, {3.570642144385264*^9, 
   3.5706421553752794`*^9}, {3.6219071069868526`*^9, 3.6219071075708857`*^9}, 
   3.6219072525731797`*^9, {3.621967915262455*^9, 3.621967948099333*^9}, {
   3.716573158688937*^9, 3.716573158695938*^9}, {3.7165778979480076`*^9, 
   3.7165779206733074`*^9}, {3.7167574741299715`*^9, 3.716757496530253*^9}, {
   3.716757579441995*^9, 3.71675758459729*^9}},
 TextAlignment->Center,
 FontSize->12,
 FontWeight->"Bold"],

Cell["Program code:", "Subsubsection",
 CellDingbat->"\[FilledSmallSquare]",
 CellChangeTimes->{{3.4794189093216*^9, 3.479418932274605*^9}, {
   3.479418981395237*^9, 3.4794189822564754`*^9}, {3.4794192068193808`*^9, 
   3.4794192077607346`*^9}, 3.479420089138093*^9, {3.479420130978256*^9, 
   3.4794201410627565`*^9}, {3.479420560345656*^9, 3.479420578171288*^9}, {
   3.479420683943381*^9, 3.4794206847645617`*^9}, {3.4794210347678413`*^9, 
   3.4794210503903055`*^9}, 3.4803613662913427`*^9, {3.480361406058525*^9, 
   3.48036141974821*^9}, {3.4803614672865667`*^9, 3.480361474717252*^9}, 
   3.4807050675119123`*^9, {3.492804314166378*^9, 3.4928043441496305`*^9}, {
   3.4928044532166224`*^9, 3.492804453513023*^9}, {3.492805162266266*^9, 
   3.492805165713872*^9}, 3.4941724567488375`*^9}],

Cell[BoxData[
 RowBox[{
  RowBox[{"Int", "[", 
   RowBox[{
    RowBox[{
     RowBox[{"Log", "[", 
      RowBox[{"c_.", "*", "x_"}], "]"}], "/", 
     RowBox[{"(", 
      RowBox[{"d_", "+", 
       RowBox[{"e_.", "*", "x_"}]}], ")"}]}], ",", "x_Symbol"}], "]"}], " ", ":=",
   "\n", "  ", 
  RowBox[{
   RowBox[{
    RowBox[{
     RowBox[{"-", "1"}], "/", "e"}], "*", 
    RowBox[{"PolyLog", "[", 
     RowBox[{"2", ",", 
      RowBox[{"1", "-", 
       RowBox[{"c", "*", "x"}]}]}], "]"}]}], " ", "/;", "\n", 
   RowBox[{
    RowBox[{"FreeQ", "[", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{"c", ",", "d", ",", "e"}], "}"}], ",", "x"}], "]"}], " ", "&&",
     " ", 
    RowBox[{"EqQ", "[", 
     RowBox[{
      RowBox[{"e", "+", 
       RowBox[{"c", "*", "d"}]}], ",", "0"}], "]"}]}]}]}]], "Code",
 CellChangeTimes->{{3.494097279728842*^9, 3.494097309778884*^9}, {
   3.494099665582182*^9, 3.4940996672021847`*^9}, {3.4940997193022575`*^9, 
   3.494099719662258*^9}, 3.4941724567488375`*^9, 3.494172717389202*^9, 
   3.495161451843186*^9, 3.4951616878092003`*^9, 3.495162292263462*^9, 
   3.49516247887099*^9, 3.4951651027064013`*^9, 3.495165649947362*^9, 
   3.5487331865147505`*^9, 3.548733345705856*^9, 3.5505964257774076`*^9, 
   3.550685533335864*^9, 3.550783513921302*^9, {3.5705566874834847`*^9, 
   3.5705566892834873`*^9}, {3.57058725087962*^9, 3.570587252279622*^9}, 
   3.5705872936296797`*^9, 3.5705874590599117`*^9, 3.5705874900199547`*^9, 
   3.570588226580986*^9, 3.5705883016910915`*^9, {3.5706410384837155`*^9, 
   3.570641112383819*^9}, 3.570642200085342*^9, {3.5706560007855706`*^9, 
   3.570656016025592*^9}, 3.570722571652095*^9, {3.5707626370146155`*^9, 
   3.570762720724733*^9}, 3.5709208866354084`*^9, 3.621907304235135*^9, 
   3.6219084561550207`*^9, {3.621968076388671*^9, 3.621968125529482*^9}, {
   3.705192096525112*^9, 3.705192099950308*^9}, 3.7165734679466257`*^9, {
   3.716577965901894*^9, 3.7165780343198075`*^9}, {3.716757536918563*^9, 
   3.7167575405767727`*^9}, {3.7167575902886157`*^9, 3.7167575926237493`*^9}},
 Background->GrayLevel[0.85]],

Cell["", "Subsubsection",
 CellDingbat->None,
 CellChangeTimes->{3.4796643211106243`*^9, 3.4941724567488375`*^9}]
}, Closed]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"\t\t\t\t", 
  RowBox[{Cell[TextData[StyleBox["2:",
    FontFamily->"Arial",
    FontColor->RGBColor[1, 0, 0]]], "None"], "  ", 
   RowBox[{"\[Integral]", 
    RowBox[{
     FractionBox[
      RowBox[{"a", "+", 
       RowBox[{"b", " ", 
        RowBox[{"Log", "[", 
         RowBox[{"c", "  ", "x"}], "]"}]}]}], 
      RowBox[{"d", "+", 
       RowBox[{"e", " ", "x"}]}]], 
     RowBox[{"\[DifferentialD]", "x"}], "  ", 
     StyleBox["when",
      FontFamily->"Arial",
      FontWeight->"Plain"], 
     StyleBox["  ",
      FontFamily->"Arial",
      FontWeight->"Plain"], Cell[TextData[Cell[BoxData[
      RowBox[{
       RowBox[{"-", 
        FractionBox[
         RowBox[{"c", " ", "d"}], "e"]}], ">", "0"}]]]], 
      "None"]}]}]}]}]], "Subsubtitle",
 CellDingbat->None,
 CellChangeTimes->{
  3.477935275784027*^9, {3.477935350060832*^9, 3.477935352384173*^9}, {
   3.477935393803731*^9, 3.477935400102789*^9}, {3.477935515378547*^9, 
   3.47793552034569*^9}, 3.478120029940968*^9, {3.479318860690858*^9, 
   3.47931886615872*^9}, {3.4794185033278093`*^9, 3.479418503918659*^9}, 
   3.4795122294117584`*^9, {3.479615913307893*^9, 3.4796159352794867`*^9}, 
   3.4796160386581373`*^9, 3.4796867204045024`*^9, {3.4928025699585147`*^9, 
   3.492802570130115*^9}, 3.492822274480175*^9, 3.492825822242408*^9, {
   3.4940970615585365`*^9, 3.494097062168537*^9}, {3.496441349250718*^9, 
   3.496441349830719*^9}, 3.4964414848609076`*^9, 3.496521708137803*^9, {
   3.4965218981240697`*^9, 3.49652189838407*^9}, 3.4965229070755*^9, 
   3.519247079685614*^9, {3.5193208582062006`*^9, 3.5193208612170057`*^9}, 
   3.5193325694253187`*^9, {3.5193422443984776`*^9, 3.5193422447260776`*^9}, 
   3.5193424488212357`*^9, {3.5193434708254333`*^9, 3.519343473103037*^9}, {
   3.5193435097631016`*^9, 3.51934353169674*^9}, {3.519345739319023*^9, 
   3.519345739599823*^9}, 3.5193462601259375`*^9, {3.5193475061060295`*^9, 
   3.5193475233908596`*^9}, {3.519351391880224*^9, 3.5193513931402254`*^9}, {
   3.519403773021052*^9, 3.5194037798564425`*^9}, 3.5194106793250647`*^9, {
   3.519537578341393*^9, 3.5195375792305946`*^9}, {3.5195376277778797`*^9, 
   3.51953767927357*^9}, {3.5197586260636144`*^9, 3.5197586260636144`*^9}, {
   3.51978053295651*^9, 3.519780542862528*^9}, {3.5197806526087203`*^9, 
   3.5197806657595434`*^9}, {3.5197807490168896`*^9, 3.5197807642581167`*^9}, 
   3.5197809004619555`*^9, {3.519782653514635*^9, 3.5197826623286505`*^9}, {
   3.5200207810164795`*^9, 3.520020785046485*^9}, {3.5213126833374643`*^9, 
   3.5213126833374643`*^9}, {3.521328235411002*^9, 3.521328235411002*^9}, {
   3.523315567893022*^9, 3.523315567893022*^9}, {3.5233157569332867`*^9, 
   3.5233157613032923`*^9}, {3.5323023198133526`*^9, 3.532302355723403*^9}, {
   3.5323026417638035`*^9, 3.5323026417638035`*^9}, {3.5323026980138817`*^9, 
   3.5323026980138817`*^9}, {3.532636287104328*^9, 3.532636287104328*^9}, {
   3.5330803686035347`*^9, 3.533080368863535*^9}, {3.533248909289961*^9, 
   3.5332489110299635`*^9}, {3.534962469565694*^9, 3.5349624910757236`*^9}, {
   3.5349625224057674`*^9, 3.534962522655768*^9}, {3.534965265519608*^9, 
   3.534965265519608*^9}, {3.5349668288168063`*^9, 3.5349668292668066`*^9}, {
   3.5349747358481646`*^9, 3.5349747358481646`*^9}, {3.534975457949176*^9, 
   3.534975457949176*^9}, {3.5368633963532934`*^9, 3.536863396571694*^9}, {
   3.541644322511304*^9, 3.5416443577513533`*^9}, {3.5416458269234104`*^9, 
   3.541645839633428*^9}, {3.5416460312236967`*^9, 3.541646031483697*^9}, 
   3.541646227783972*^9, {3.541647080335165*^9, 3.5416471077052035`*^9}, {
   3.541648997607849*^9, 3.5416489978278494`*^9}, 3.541649088407976*^9, {
   3.5417848711596775`*^9, 3.541784902429721*^9}, {3.541786145331461*^9, 
   3.5417861455914617`*^9}, {3.5417870037166634`*^9, 3.5417870039366636`*^9}, 
   3.5462979620242105`*^9, {3.546298264094633*^9, 3.546298265344635*^9}, {
   3.546299000235664*^9, 3.546299001505666*^9}, {3.546315119909564*^9, 
   3.5463151267659564`*^9}, {3.547227356319705*^9, 3.547227356319705*^9}, 
   3.547918559331044*^9, {3.547918610170952*^9, 3.5479186304411116`*^9}, 
   3.548537755517557*^9, 3.5485441629685287`*^9, 3.5485517520154133`*^9, {
   3.5488740727887154`*^9, 3.5488740727887154`*^9}, {3.548874206618903*^9, 
   3.548874206808903*^9}, 3.548877100795455*^9, 3.550596464087599*^9, {
   3.5505965767870445`*^9, 3.5505965767870445`*^9}, 3.5505966202465305`*^9, {
   3.5506039138305197`*^9, 3.55060391400453*^9}, {3.5506040039986773`*^9, 
   3.550604005776779*^9}, {3.5506178888272758`*^9, 3.5506178900273447`*^9}, {
   3.550770598144562*^9, 3.550770659629079*^9}, {3.5507707252908344`*^9, 
   3.5507707474461017`*^9}, 3.5507880023630266`*^9, {3.5508017696214375`*^9, 
   3.5508017788269644`*^9}, {3.5508018116158395`*^9, 
   3.5508018116158395`*^9}, {3.550802405698819*^9, 3.550802408060954*^9}, 
   3.550803747538568*^9, {3.550803796215352*^9, 3.5508038135023413`*^9}, {
   3.551822339039939*^9, 3.551822341599942*^9}, {3.551822388220008*^9, 
   3.5518223884900084`*^9}, {3.5521511396589584`*^9, 3.552151140002159*^9}, 
   3.5521516645686803`*^9, {3.5706533253698235`*^9, 3.5706533300298305`*^9}, {
   3.570653366709882*^9, 3.570653371609888*^9}, {3.5706539660107207`*^9, 
   3.5706539679607234`*^9}, 3.6221617851350117`*^9, 3.6221633617371883`*^9, {
   3.6221634868743453`*^9, 3.6221634868743453`*^9}, {3.6221635771275077`*^9, 
   3.622163579584648*^9}, 3.622163623485159*^9, {3.622163974846256*^9, 
   3.6221639805135803`*^9}, 3.622166449162779*^9, {3.622166741755514*^9, 
   3.6221667431425934`*^9}, 3.7165731587069387`*^9, {3.7165781090440817`*^9, 
   3.71657812283387*^9}, 3.7165791835155373`*^9, 3.71666584619485*^9, 
   3.7228118107502074`*^9, 3.7461206924220915`*^9},
 FontSize->12,
 FontWeight->"Bold"],

Cell["Derivation: Algebraic expansion", "Subsubsection",
 CellChangeTimes->{
  3.4941724567488375`*^9, 3.4951641222026777`*^9, {3.570637433361165*^9, 
   3.570637434021166*^9}}],

Cell[TextData[{
 "Basis: If ",
 Cell[BoxData[
  RowBox[{
   RowBox[{"-", 
    FractionBox[
     RowBox[{"c", " ", "d"}], "e"]}], ">", "0"}]]],
 ", then ",
 Cell[BoxData[
  RowBox[{
   RowBox[{"Log", "[", 
    RowBox[{"c", " ", "x"}], "]"}], "\[Equal]", 
   RowBox[{
    RowBox[{"Log", "[", 
     RowBox[{"-", 
      FractionBox[
       RowBox[{"c", " ", "d"}], "e"]}], "]"}], "+", 
    RowBox[{"Log", "[", 
     RowBox[{"-", 
      FractionBox[
       RowBox[{"e", " ", "x"}], "d"]}], "]"}]}]}]]]
}], "Subsubsection",
 CellChangeTimes->{
  3.4941724567488375`*^9, 3.4951641222026777`*^9, {3.49516486329758*^9, 
   3.495164878882007*^9}, {3.622163236113003*^9, 3.6221632366140313`*^9}, {
   3.6221632990166006`*^9, 3.622163326434169*^9}, {3.622166558446029*^9, 
   3.622166558446029*^9}, {3.7165788907277913`*^9, 3.7165788962261057`*^9}}],

Cell["\<\
Note: Resulting integrand is of the form required by the above rule.\
\>", "Subsubsection",
 CellDingbat->"\[FilledSmallSquare]",
 CellChangeTimes->{{3.4794189093216*^9, 3.479418932274605*^9}, {
   3.479418981395237*^9, 3.4794189822564754`*^9}, {3.4794192068193808`*^9, 
   3.4794192077607346`*^9}, 3.479420089138093*^9, {3.479420130978256*^9, 
   3.4794201410627565`*^9}, {3.479420560345656*^9, 3.479420578171288*^9}, {
   3.479420683943381*^9, 3.4794206847645617`*^9}, {3.4794210347678413`*^9, 
   3.4794210503903055`*^9}, 3.4803613662913427`*^9, {3.480361406058525*^9, 
   3.48036141974821*^9}, {3.4803614672865667`*^9, 3.480361474717252*^9}, 
   3.48070534977779*^9, {3.4928296953212276`*^9, 3.492829707041244*^9}, 
   3.4941724084687696`*^9, 3.4941724567488375`*^9, 3.494172783029294*^9, {
   3.495162076203082*^9, 3.495162102707529*^9}, {3.495162264932214*^9, 
   3.495162277318636*^9}, {3.4951637747120676`*^9, 3.495163775320469*^9}, {
   3.4951642488437004`*^9, 3.4951642509653044`*^9}, {3.55080382222484*^9, 
   3.55080382222484*^9}, {3.5518223921000133`*^9, 3.5518223921000133`*^9}, {
   3.5706533923799176`*^9, 3.5706533923799176`*^9}, {3.62216195312362*^9, 
   3.622161964073246*^9}, {3.622162778145808*^9, 3.622162778145808*^9}, {
   3.622162835945114*^9, 3.622162835945114*^9}, {3.6221630646961985`*^9, 
   3.6221630646961985`*^9}, {3.6221634181974173`*^9, 3.6221634343583417`*^9}}],

Cell[TextData[{
 "Rule: If ",
 Cell[BoxData[
  RowBox[{
   RowBox[{"-", 
    FractionBox[
     RowBox[{"c", " ", "d"}], "e"]}], ">", "0"}]]],
 ", then"
}], "Subsubsection",
 CellDingbat->"\[FilledSmallSquare]",
 CellChangeTimes->{{3.4794189093216*^9, 3.479418932274605*^9}, {
   3.479418981395237*^9, 3.4794189822564754`*^9}, {3.4794192068193808`*^9, 
   3.4794192077607346`*^9}, 3.479420089138093*^9, {3.479420130978256*^9, 
   3.4794201410627565`*^9}, {3.479420560345656*^9, 3.479420578171288*^9}, {
   3.479420683943381*^9, 3.4794206847645617`*^9}, {3.4794210347678413`*^9, 
   3.4794210503903055`*^9}, 3.4803613662913427`*^9, {3.480361406058525*^9, 
   3.48036141974821*^9}, {3.4803614672865667`*^9, 3.480361474717252*^9}, 
   3.48070534977779*^9, {3.4928296953212276`*^9, 3.492829707041244*^9}, 
   3.4941724084687696`*^9, 3.4941724567488375`*^9, 3.494172783029294*^9, {
   3.495162076203082*^9, 3.495162102707529*^9}, {3.495162264932214*^9, 
   3.495162277318636*^9}, {3.4951637747120676`*^9, 3.495163775320469*^9}, {
   3.4951642488437004`*^9, 3.4951642509653044`*^9}, {3.55080382222484*^9, 
   3.55080382222484*^9}, {3.5518223921000133`*^9, 3.5518223921000133`*^9}, {
   3.5706533923799176`*^9, 3.5706533923799176`*^9}, {3.62216195312362*^9, 
   3.622161964073246*^9}, {3.622162778145808*^9, 3.622162778145808*^9}, {
   3.622162835945114*^9, 3.622162835945114*^9}, {3.6221630646961985`*^9, 
   3.6221630646961985`*^9}, {3.6221639856308727`*^9, 
   3.6221639856308727`*^9}, {3.716578666792983*^9, 3.716578666792983*^9}, 
   3.716579066503845*^9}],

Cell[BoxData[
 RowBox[{
  RowBox[{"\[Integral]", 
   RowBox[{
    FractionBox[
     RowBox[{"a", "+", 
      RowBox[{"b", " ", 
       RowBox[{"Log", "[", 
        RowBox[{"c", "  ", "x"}], "]"}]}]}], 
     RowBox[{"d", "+", 
      RowBox[{"e", " ", "x"}]}]], 
    RowBox[{"\[DifferentialD]", 
     RowBox[{"x", "  ", "\[LongRightArrow]", "  ", 
      FractionBox[
       RowBox[{
        RowBox[{"(", 
         RowBox[{"a", "+", 
          RowBox[{"b", " ", 
           RowBox[{"Log", "[", 
            RowBox[{"-", 
             FractionBox[
              RowBox[{"c", " ", "d"}], "e"]}], "]"}]}]}], ")"}], " ", 
        RowBox[{"Log", "[", 
         RowBox[{"d", "+", 
          RowBox[{"e", " ", "x"}]}], "]"}]}], "e"]}]}]}]}], "+", 
  RowBox[{"b", 
   RowBox[{"\[Integral]", 
    RowBox[{
     FractionBox[
      RowBox[{"Log", "[", 
       RowBox[{"-", 
        FractionBox[
         RowBox[{"e", " ", "x"}], "d"]}], "]"}], 
      RowBox[{"d", "+", 
       RowBox[{"e", " ", "x"}]}]], 
     RowBox[{"\[DifferentialD]", "x"}]}]}]}]}]], "Subsubtitle",
 CellDingbat->None,
 CellChangeTimes->{{3.4796579732027807`*^9, 3.479658002474872*^9}, {
   3.4796580599975853`*^9, 3.4796580609489536`*^9}, {3.479658295195784*^9, 
   3.47965829684816*^9}, 3.4796611938939075`*^9, 3.4796613924794593`*^9, {
   3.479661443342597*^9, 3.479661446647349*^9}, {3.479661576554146*^9, 
   3.479661589302477*^9}, 3.479661847553824*^9, {3.4796622294729967`*^9, 
   3.4796622450654173`*^9}, {3.479686720424531*^9, 3.4796867204345455`*^9}, {
   3.4796874646646957`*^9, 3.4796874745589232`*^9}, {3.492826573513727*^9, 
   3.492826578630536*^9}, {3.4928267070863624`*^9, 3.492826707460763*^9}, 
   3.4928267903497095`*^9, {3.492829799151373*^9, 3.4928299617216005`*^9}, {
   3.4940972077187414`*^9, 3.4940972347887793`*^9}, {3.49409966398218*^9, 
   3.494099664952181*^9}, {3.4940997156722527`*^9, 3.494099716112253*^9}, 
   3.4941724567488375`*^9, {3.4941727384192314`*^9, 3.494172760679263*^9}, {
   3.495161485476845*^9, 3.4951615041032777`*^9}, 3.4951622258697453`*^9, 
   3.4951623402647467`*^9, {3.4951637900936947`*^9, 3.4951638150849385`*^9}, {
   3.495164178986778*^9, 3.4951642244608574`*^9}, {3.622161788114182*^9, 
   3.622161790638326*^9}, {3.622161886772825*^9, 3.6221619074070053`*^9}, {
   3.6221620641909723`*^9, 3.6221621207492075`*^9}, 3.62216215942542*^9, {
   3.6221622528737645`*^9, 3.6221623028036203`*^9}, 3.6221623854513474`*^9, {
   3.62216242359853*^9, 3.6221624307249374`*^9}, 3.6221630453370905`*^9, {
   3.6221630796160517`*^9, 3.622163126456731*^9}, 3.6221633510135746`*^9, 
   3.6221664607214394`*^9, {3.6221665712277603`*^9, 3.6221665844525166`*^9}, {
   3.7165731587139387`*^9, 3.7165731587269397`*^9}, 3.716578164691264*^9, {
   3.7165782033654766`*^9, 3.716578251196212*^9}},
 TextAlignment->Center,
 FontSize->12,
 FontWeight->"Bold"],

Cell["Program code:", "Subsubsection",
 CellDingbat->"\[FilledSmallSquare]",
 CellChangeTimes->{{3.4794189093216*^9, 3.479418932274605*^9}, {
   3.479418981395237*^9, 3.4794189822564754`*^9}, {3.4794192068193808`*^9, 
   3.4794192077607346`*^9}, 3.479420089138093*^9, {3.479420130978256*^9, 
   3.4794201410627565`*^9}, {3.479420560345656*^9, 3.479420578171288*^9}, {
   3.479420683943381*^9, 3.4794206847645617`*^9}, {3.4794210347678413`*^9, 
   3.4794210503903055`*^9}, 3.4803613662913427`*^9, {3.480361406058525*^9, 
   3.48036141974821*^9}, {3.4803614672865667`*^9, 3.480361474717252*^9}, 
   3.4807050675119123`*^9, {3.492804314166378*^9, 3.4928043441496305`*^9}, {
   3.4928044532166224`*^9, 3.492804453513023*^9}, {3.492805162266266*^9, 
   3.492805165713872*^9}, 3.4941724567488375`*^9}],

Cell[BoxData[
 RowBox[{
  RowBox[{"Int", "[", 
   RowBox[{
    RowBox[{
     RowBox[{"(", 
      RowBox[{"a_.", "+", 
       RowBox[{"b_.", "*", 
        RowBox[{"Log", "[", 
         RowBox[{"c_.", "*", "x_"}], "]"}]}]}], ")"}], "/", 
     RowBox[{"(", 
      RowBox[{"d_", "+", 
       RowBox[{"e_.", "*", "x_"}]}], ")"}]}], ",", "x_Symbol"}], "]"}], " ", ":=",
   "\n", "  ", 
  RowBox[{
   RowBox[{
    RowBox[{
     RowBox[{"(", 
      RowBox[{"a", "+", 
       RowBox[{"b", "*", 
        RowBox[{"Log", "[", 
         RowBox[{
          RowBox[{"-", "c"}], "*", 
          RowBox[{"d", "/", "e"}]}], "]"}]}]}], ")"}], "*", 
     RowBox[{
      RowBox[{"Log", "[", 
       RowBox[{"d", "+", 
        RowBox[{"e", "*", "x"}]}], "]"}], "/", "e"}]}], " ", "+", " ", 
    RowBox[{"b", "*", 
     RowBox[{"Int", "[", 
      RowBox[{
       RowBox[{
        RowBox[{"Log", "[", 
         RowBox[{
          RowBox[{"-", "e"}], "*", 
          RowBox[{"x", "/", "d"}]}], "]"}], "/", 
        RowBox[{"(", 
         RowBox[{"d", "+", 
          RowBox[{"e", "*", "x"}]}], ")"}]}], ",", "x"}], "]"}]}]}], " ", "/;",
    "\n", 
   RowBox[{
    RowBox[{"FreeQ", "[", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{"a", ",", "b", ",", "c", ",", "d", ",", "e"}], "}"}], ",", 
      "x"}], "]"}], " ", "&&", " ", 
    RowBox[{"GtQ", "[", 
     RowBox[{
      RowBox[{
       RowBox[{"-", "c"}], "*", 
       RowBox[{"d", "/", "e"}]}], ",", "0"}], "]"}]}]}]}]], "Code",
 CellChangeTimes->{{3.494097279728842*^9, 3.494097309778884*^9}, {
   3.494099665582182*^9, 3.4940996672021847`*^9}, {3.4940997193022575`*^9, 
   3.494099719662258*^9}, 3.4941724567488375`*^9, 3.494172717389202*^9, 
   3.495161451843186*^9, 3.4951616878092003`*^9, 3.495162292263462*^9, 
   3.495163765133651*^9, 3.4951638729766407`*^9, 3.4951641424515133`*^9, {
   3.550803835237584*^9, 3.550803842470998*^9}, {3.551736953159027*^9, 
   3.55173696902905*^9}, 3.5518223955100183`*^9, {3.5706533014297905`*^9, 
   3.5706533121698055`*^9}, 3.622163884738102*^9, {3.6221639381941595`*^9, 
   3.6221639496088123`*^9}, {3.6221639892120776`*^9, 3.622164002739851*^9}, {
   3.622166070407115*^9, 3.622166071927202*^9}, {3.622166765774888*^9, 
   3.622166804065078*^9}, {3.705192388195795*^9, 3.705192395963239*^9}, {
   3.715124149435401*^9, 3.7151241545316315`*^9}, 3.7165734913889666`*^9, {
   3.7165781410909147`*^9, 3.716578144561113*^9}, {3.716578179765126*^9, 
   3.716578187010541*^9}, {3.716578310480603*^9, 3.716578314426829*^9}, {
   3.7165786181632013`*^9, 3.716578658403503*^9}},
 Background->GrayLevel[0.85]],

Cell["", "Subsubsection",
 CellDingbat->None,
 CellChangeTimes->{3.4796643211106243`*^9, 3.4941724567488375`*^9}]
}, Closed]]
}, Closed]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"\t\t\t", 
  RowBox[{Cell[TextData[StyleBox["2:",
    FontFamily->"Arial",
    FontColor->RGBColor[1, 0, 0]]], "None"], "  ", 
   RowBox[{"\[Integral]", 
    RowBox[{
     FractionBox[
      SuperscriptBox[
       RowBox[{"(", 
        RowBox[{"a", "+", 
         RowBox[{"b", " ", 
          RowBox[{"Log", "[", 
           RowBox[{"c", " ", 
            SuperscriptBox["x", "n"]}], "]"}]}]}], ")"}], "p"], 
      RowBox[{"d", "+", 
       RowBox[{"e", " ", "x"}]}]], 
     RowBox[{"\[DifferentialD]", "x"}], "  ", 
     StyleBox["when",
      FontFamily->"Arial",
      FontWeight->"Plain"], 
     StyleBox["  ",
      FontFamily->"Arial",
      FontWeight->"Plain"], Cell[TextData[Cell[BoxData[
      RowBox[{"p", "\[Element]", 
       SuperscriptBox["\[DoubleStruckCapitalZ]", "+"]}]]]], 
      "None"]}]}]}]}]], "Subsubtitle",
 CellDingbat->None,
 CellChangeTimes->{
  3.477935275784027*^9, {3.477935350060832*^9, 3.477935352384173*^9}, {
   3.477935393803731*^9, 3.477935400102789*^9}, {3.477935515378547*^9, 
   3.47793552034569*^9}, 3.478120029940968*^9, {3.479318860690858*^9, 
   3.47931886615872*^9}, {3.4794185033278093`*^9, 3.479418503918659*^9}, 
   3.4795122294117584`*^9, {3.479615913307893*^9, 3.4796159352794867`*^9}, 
   3.4796160386581373`*^9, 3.4796867204045024`*^9, {3.4928025699585147`*^9, 
   3.492802570130115*^9}, 3.492822274480175*^9, 3.492825822242408*^9, {
   3.4940970615585365`*^9, 3.494097062168537*^9}, {3.496441349250718*^9, 
   3.496441349830719*^9}, 3.4964414848609076`*^9, 3.496521708137803*^9, {
   3.4965218981240697`*^9, 3.49652189838407*^9}, 3.4965229070755*^9, 
   3.519247079685614*^9, {3.5193208582062006`*^9, 3.5193208612170057`*^9}, 
   3.5193325694253187`*^9, {3.5193422443984776`*^9, 3.5193422447260776`*^9}, 
   3.5193424488212357`*^9, {3.5193434708254333`*^9, 3.519343473103037*^9}, {
   3.5193435097631016`*^9, 3.51934353169674*^9}, {3.519345739319023*^9, 
   3.519345739599823*^9}, 3.5193462601259375`*^9, {3.5193475061060295`*^9, 
   3.5193475233908596`*^9}, {3.519351391880224*^9, 3.5193513931402254`*^9}, {
   3.519403773021052*^9, 3.5194037798564425`*^9}, 3.5194106793250647`*^9, {
   3.519537578341393*^9, 3.5195375792305946`*^9}, {3.5195376277778797`*^9, 
   3.51953767927357*^9}, {3.5197586260636144`*^9, 3.5197586260636144`*^9}, {
   3.51978053295651*^9, 3.519780542862528*^9}, {3.5197806526087203`*^9, 
   3.5197806657595434`*^9}, {3.5197807490168896`*^9, 3.5197807642581167`*^9}, 
   3.5197809004619555`*^9, {3.519782653514635*^9, 3.5197826623286505`*^9}, {
   3.5200207810164795`*^9, 3.520020785046485*^9}, {3.5213126833374643`*^9, 
   3.5213126833374643`*^9}, {3.521328235411002*^9, 3.521328235411002*^9}, {
   3.523315567893022*^9, 3.523315567893022*^9}, {3.5233157569332867`*^9, 
   3.5233157613032923`*^9}, {3.5323023198133526`*^9, 3.532302355723403*^9}, {
   3.5323026417638035`*^9, 3.5323026417638035`*^9}, {3.5323026980138817`*^9, 
   3.5323026980138817`*^9}, {3.532636287104328*^9, 3.532636287104328*^9}, {
   3.5330803686035347`*^9, 3.533080368863535*^9}, {3.533248909289961*^9, 
   3.5332489110299635`*^9}, {3.534962469565694*^9, 3.5349624910757236`*^9}, {
   3.5349625224057674`*^9, 3.534962522655768*^9}, {3.534965265519608*^9, 
   3.534965265519608*^9}, {3.5349668288168063`*^9, 3.5349668292668066`*^9}, {
   3.5349747358481646`*^9, 3.5349747358481646`*^9}, {3.534975457949176*^9, 
   3.534975457949176*^9}, {3.5368633963532934`*^9, 3.536863396571694*^9}, {
   3.541644322511304*^9, 3.5416443577513533`*^9}, {3.5416458269234104`*^9, 
   3.541645839633428*^9}, {3.5416460312236967`*^9, 3.541646031483697*^9}, 
   3.541646227783972*^9, {3.541647080335165*^9, 3.5416471077052035`*^9}, {
   3.541648997607849*^9, 3.5416489978278494`*^9}, 3.541649088407976*^9, {
   3.5417848711596775`*^9, 3.541784902429721*^9}, {3.541786145331461*^9, 
   3.5417861455914617`*^9}, {3.5417870037166634`*^9, 3.5417870039366636`*^9}, 
   3.5462979620242105`*^9, {3.546298264094633*^9, 3.546298265344635*^9}, {
   3.546299000235664*^9, 3.546299001505666*^9}, {3.546315119909564*^9, 
   3.5463151267659564`*^9}, {3.547227356319705*^9, 3.547227356319705*^9}, 
   3.547918559331044*^9, {3.547918610170952*^9, 3.5479186304411116`*^9}, 
   3.548537755517557*^9, 3.5485441629685287`*^9, 3.5485517520154133`*^9, {
   3.5488740727887154`*^9, 3.5488740727887154`*^9}, {3.548874206618903*^9, 
   3.548874206808903*^9}, 3.548877100795455*^9, 3.550596464087599*^9, {
   3.5505965767870445`*^9, 3.5505965767870445`*^9}, 3.5505966202465305`*^9, {
   3.5506039138305197`*^9, 3.55060391400453*^9}, {3.5506040039986773`*^9, 
   3.550604005776779*^9}, {3.5506178888272758`*^9, 3.5506178900273447`*^9}, {
   3.5507714128001575`*^9, 3.5507714579237385`*^9}, 3.5507784736590157`*^9, 
   3.552150801528364*^9, 3.570556428533122*^9, {3.5705566808934755`*^9, 
   3.5705566808934755`*^9}, {3.5705567873636246`*^9, 3.5705567904936285`*^9}, 
   3.5705588281264815`*^9, {3.570587080169381*^9, 3.570587080169381*^9}, 
   3.5705871791295195`*^9, {3.570587863790478*^9, 3.5705878853505087`*^9}, {
   3.5706403002826824`*^9, 3.5706403020326843`*^9}, 3.6219070361217995`*^9, 
   3.621907108385933*^9, {3.6219073910541005`*^9, 3.6219073910541005`*^9}, {
   3.6219081141794605`*^9, 3.6219081141794605`*^9}, 3.6219788012170963`*^9, 
   3.6221386768242917`*^9, {3.622661651198879*^9, 3.622661653424883*^9}, 
   3.716573126693107*^9, {3.71657315874094*^9, 3.716573181003214*^9}, {
   3.716577404678794*^9, 3.716577407145935*^9}, 3.7165791846896048`*^9, 
   3.7166658467898836`*^9, 3.7461206929101195`*^9},
 FontSize->12,
 FontWeight->"Bold"],

Cell["Derivation: Integration by parts", "Subsubsection",
 CellChangeTimes->{3.4941724567488375`*^9}],

Cell[TextData[{
 "Basis: ",
 Cell[BoxData[
  RowBox[{
   FractionBox["1", 
    RowBox[{"d", "+", 
     RowBox[{"e", " ", "x"}]}]], "\[Equal]", 
   RowBox[{
    FractionBox["1", "e"], " ", 
    RowBox[{
     SubscriptBox["\[PartialD]", "x"], 
     RowBox[{"Log", "[", 
      RowBox[{"1", "+", 
       FractionBox[
        RowBox[{"e", " ", "x"}], "d"]}], "]"}]}]}]}]], "Input",
  CellChangeTimes->{{3.550694401134833*^9, 3.550694444531315*^9}, {
   3.550694475826105*^9, 3.550694496509288*^9}}]
}], "Subsubsection",
 CellChangeTimes->{
  3.4941724567488375`*^9, {3.550694371555141*^9, 3.550694372454192*^9}, {
   3.5506945117291584`*^9, 3.550694531191272*^9}, {3.5705870812093825`*^9, 
   3.5705870812093825`*^9}, {3.570587912490546*^9, 3.5705879466405945`*^9}, {
   3.621907110472052*^9, 3.6219071111300898`*^9}, {3.621907391659135*^9, 
   3.621907391659135*^9}, {3.6219081248220696`*^9, 3.621908145933277*^9}, {
   3.716573158768942*^9, 3.7165731587799425`*^9}, {3.716577348382574*^9, 
   3.716577348382574*^9}, {3.716680071142069*^9, 3.716680071142069*^9}}],

Cell[TextData[{
 "Basis: ",
 Cell[BoxData[
  RowBox[{
   RowBox[{
    SubscriptBox["\[PartialD]", "x"], 
    SuperscriptBox[
     RowBox[{"(", 
      RowBox[{"a", "+", 
       RowBox[{"b", " ", 
        RowBox[{"Log", "[", 
         RowBox[{"c", " ", 
          SuperscriptBox["x", "n"]}], "]"}]}]}], ")"}], "p"]}], "\[Equal]", 
   FractionBox[
    RowBox[{"b", " ", "n", " ", "p", " ", 
     SuperscriptBox[
      RowBox[{"(", 
       RowBox[{"a", "+", 
        RowBox[{"b", " ", 
         RowBox[{"Log", "[", 
          RowBox[{"c", " ", 
           SuperscriptBox["x", "n"]}], "]"}]}]}], ")"}], 
      RowBox[{"p", "-", "1"}]]}], "x"]}]], "Input",
  CellChangeTimes->{{3.550786187777238*^9, 3.5507862140807424`*^9}}]
}], "Subsubsection",
 CellChangeTimes->{
  3.4941724567488375`*^9, {3.550786175784552*^9, 3.5507861768116107`*^9}, {
   3.5507862232202654`*^9, 3.550786224226323*^9}, {3.550787132861294*^9, 
   3.5507871374785576`*^9}, {3.5508065246874123`*^9, 
   3.5508065290326605`*^9}, {3.5706338729761806`*^9, 
   3.5706338776861873`*^9}, {3.6219070940231113`*^9, 
   3.6219070945861435`*^9}, {3.6219074275601883`*^9, 
   3.6219074275601883`*^9}, {3.7165731589349513`*^9, 
   3.7165731589389515`*^9}, {3.71657319597007*^9, 3.71657319597007*^9}, {
   3.7165741075952115`*^9, 3.7165741075952115`*^9}}],

Cell[TextData[{
 "Rule: If  ",
 Cell[BoxData[
  RowBox[{"p", "\[Element]", 
   SuperscriptBox["\[DoubleStruckCapitalZ]", "+"]}]]],
 ", then"
}], "Subsubsection",
 CellDingbat->"\[FilledSmallSquare]",
 CellChangeTimes->{{3.4794189093216*^9, 3.479418932274605*^9}, {
   3.479418981395237*^9, 3.4794189822564754`*^9}, {3.4794192068193808`*^9, 
   3.4794192077607346`*^9}, 3.479420089138093*^9, {3.479420130978256*^9, 
   3.4794201410627565`*^9}, {3.479420560345656*^9, 3.479420578171288*^9}, {
   3.479420683943381*^9, 3.4794206847645617`*^9}, {3.4794210347678413`*^9, 
   3.4794210503903055`*^9}, 3.4803613662913427`*^9, {3.480361406058525*^9, 
   3.48036141974821*^9}, {3.4803614672865667`*^9, 3.480361474717252*^9}, 
   3.48070534977779*^9, {3.4928296953212276`*^9, 3.492829707041244*^9}, 
   3.4941724084687696`*^9, 3.4941724567488375`*^9, 3.494172783029294*^9, {
   3.495162076203082*^9, 3.495162102707529*^9}, {3.495162264932214*^9, 
   3.495162277318636*^9}, {3.4951624969202213`*^9, 3.495162512208248*^9}, {
   3.5705567496335716`*^9, 3.5705567496335716`*^9}, {3.5705870820093837`*^9, 
   3.5705870820093837`*^9}, {3.6219073922301674`*^9, 
   3.6219073922301674`*^9}, {3.621908115965563*^9, 3.621908115965563*^9}, {
   3.6226616652989025`*^9, 3.6226616652989025`*^9}, {3.7165774150453873`*^9, 
   3.7165774150453873`*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{"\[Integral]", 
   RowBox[{
    FractionBox[
     SuperscriptBox[
      RowBox[{"(", 
       RowBox[{"a", "+", 
        RowBox[{"b", " ", 
         RowBox[{"Log", "[", 
          RowBox[{"c", " ", 
           SuperscriptBox["x", "n"]}], "]"}]}]}], ")"}], "p"], 
     RowBox[{"d", "+", 
      RowBox[{"e", " ", "x"}]}]], 
    RowBox[{"\[DifferentialD]", 
     RowBox[{"x", "  ", "\[LongRightArrow]", "  ", 
      FractionBox[
       RowBox[{
        RowBox[{"Log", "[", 
         RowBox[{"1", "+", 
          FractionBox[
           RowBox[{"e", " ", "x"}], "d"]}], "]"}], " ", 
        SuperscriptBox[
         RowBox[{"(", 
          RowBox[{"a", "+", 
           RowBox[{"b", " ", 
            RowBox[{"Log", "[", 
             RowBox[{"c", " ", 
              SuperscriptBox["x", "n"]}], "]"}]}]}], ")"}], "p"]}], 
       "e"]}]}]}]}], "-", 
  RowBox[{
   FractionBox[
    RowBox[{"b", " ", "n", " ", "p"}], "e"], 
   RowBox[{"\[Integral]", 
    RowBox[{
     FractionBox[
      RowBox[{
       RowBox[{"Log", "[", 
        RowBox[{"1", "+", 
         FractionBox[
          RowBox[{"e", " ", "x"}], "d"]}], "]"}], " ", 
       SuperscriptBox[
        RowBox[{"(", 
         RowBox[{"a", "+", 
          RowBox[{"b", " ", 
           RowBox[{"Log", "[", 
            RowBox[{"c", " ", 
             SuperscriptBox["x", "n"]}], "]"}]}]}], ")"}], 
        RowBox[{"p", "-", "1"}]]}], "x"], 
     RowBox[{"\[DifferentialD]", "x"}]}]}]}]}]], "Subsubtitle",
 CellDingbat->None,
 CellChangeTimes->{{3.4796579732027807`*^9, 3.479658002474872*^9}, {
   3.4796580599975853`*^9, 3.4796580609489536`*^9}, {3.479658295195784*^9, 
   3.47965829684816*^9}, 3.4796611938939075`*^9, 3.4796613924794593`*^9, {
   3.479661443342597*^9, 3.479661446647349*^9}, {3.479661576554146*^9, 
   3.479661589302477*^9}, 3.479661847553824*^9, {3.4796622294729967`*^9, 
   3.4796622450654173`*^9}, {3.479686720424531*^9, 3.4796867204345455`*^9}, {
   3.4796874646646957`*^9, 3.4796874745589232`*^9}, {3.492826573513727*^9, 
   3.492826578630536*^9}, {3.4928267070863624`*^9, 3.492826707460763*^9}, 
   3.4928267903497095`*^9, {3.492829799151373*^9, 3.4928299617216005`*^9}, {
   3.4940972077187414`*^9, 3.4940972347887793`*^9}, {3.49409966398218*^9, 
   3.494099664952181*^9}, {3.4940997156722527`*^9, 3.494099716112253*^9}, 
   3.4941724567488375`*^9, {3.4941727384192314`*^9, 3.494172760679263*^9}, {
   3.495161485476845*^9, 3.4951615041032777`*^9}, 3.4951622258697453`*^9, 
   3.4951623402647467`*^9, 3.4951624589029546`*^9, {3.4951625764731617`*^9, 
   3.4951626064252143`*^9}, {3.4953186283146505`*^9, 3.495318647014677*^9}, {
   3.515955273396394*^9, 3.515955281040407*^9}, 3.570556723273535*^9, {
   3.570587082829385*^9, 3.5705870835593863`*^9}, {3.5705871797995205`*^9, 
   3.570587181039522*^9}, {3.57058797972064*^9, 3.5705880707107677`*^9}, {
   3.5705881689309053`*^9, 3.570588169290906*^9}, 3.570588331051132*^9, {
   3.621907037041852*^9, 3.6219070379569044`*^9}, {3.6219071116541195`*^9, 
   3.6219071125651717`*^9}, 3.6219071873744507`*^9, 3.621907254957316*^9, {
   3.6219073928692045`*^9, 3.6219073935652437`*^9}, {3.6219081664844522`*^9, 
   3.62190820892688*^9}, {3.6219676978110175`*^9, 3.621967700809189*^9}, {
   3.716573127178135*^9, 3.7165731280391846`*^9}, {3.7165731587969437`*^9, 
   3.7165731810352154`*^9}, 3.716577129886077*^9, {3.716577183151123*^9, 
   3.7165772560012903`*^9}, {3.716577382454523*^9, 3.716577383216566*^9}, {
   3.71657746213108*^9, 3.7165774755478477`*^9}, {3.716680040973343*^9, 
   3.716680051077921*^9}},
 TextAlignment->Center,
 FontSize->12,
 FontWeight->"Bold"],

Cell["Program code:", "Subsubsection",
 CellDingbat->"\[FilledSmallSquare]",
 CellChangeTimes->{{3.4794189093216*^9, 3.479418932274605*^9}, {
   3.479418981395237*^9, 3.4794189822564754`*^9}, {3.4794192068193808`*^9, 
   3.4794192077607346`*^9}, 3.479420089138093*^9, {3.479420130978256*^9, 
   3.4794201410627565`*^9}, {3.479420560345656*^9, 3.479420578171288*^9}, {
   3.479420683943381*^9, 3.4794206847645617`*^9}, {3.4794210347678413`*^9, 
   3.4794210503903055`*^9}, 3.4803613662913427`*^9, {3.480361406058525*^9, 
   3.48036141974821*^9}, {3.4803614672865667`*^9, 3.480361474717252*^9}, 
   3.4807050675119123`*^9, {3.492804314166378*^9, 3.4928043441496305`*^9}, {
   3.4928044532166224`*^9, 3.492804453513023*^9}, {3.492805162266266*^9, 
   3.492805165713872*^9}, 3.4941724567488375`*^9}],

Cell[BoxData[
 RowBox[{
  RowBox[{"Int", "[", 
   RowBox[{
    RowBox[{
     RowBox[{
      RowBox[{"(", 
       RowBox[{"a_.", "+", 
        RowBox[{"b_.", "*", 
         RowBox[{"Log", "[", 
          RowBox[{"c_.", "*", 
           RowBox[{"x_", "^", "n_."}]}], "]"}]}]}], ")"}], "^", "p_."}], "/", 
     RowBox[{"(", 
      RowBox[{"d_", "+", 
       RowBox[{"e_.", "*", "x_"}]}], ")"}]}], ",", "x_Symbol"}], "]"}], " ", ":=",
   "\n", "  ", 
  RowBox[{
   RowBox[{
    RowBox[{
     RowBox[{"Log", "[", 
      RowBox[{"1", "+", 
       RowBox[{"e", "*", 
        RowBox[{"x", "/", "d"}]}]}], "]"}], "*", 
     RowBox[{
      RowBox[{
       RowBox[{"(", 
        RowBox[{"a", "+", 
         RowBox[{"b", "*", 
          RowBox[{"Log", "[", 
           RowBox[{"c", "*", 
            RowBox[{"x", "^", "n"}]}], "]"}]}]}], ")"}], "^", "p"}], "/", 
      "e"}]}], " ", "-", " ", 
    RowBox[{"b", "*", "n", "*", 
     RowBox[{"p", "/", "e"}], "*", 
     RowBox[{"Int", "[", 
      RowBox[{
       RowBox[{
        RowBox[{"Log", "[", 
         RowBox[{"1", "+", 
          RowBox[{"e", "*", 
           RowBox[{"x", "/", "d"}]}]}], "]"}], "*", 
        RowBox[{
         RowBox[{
          RowBox[{"(", 
           RowBox[{"a", "+", 
            RowBox[{"b", "*", 
             RowBox[{"Log", "[", 
              RowBox[{"c", "*", 
               RowBox[{"x", "^", "n"}]}], "]"}]}]}], ")"}], "^", 
          RowBox[{"(", 
           RowBox[{"p", "-", "1"}], ")"}]}], "/", "x"}]}], ",", "x"}], 
      "]"}]}]}], " ", "/;", "\n", 
   RowBox[{
    RowBox[{"FreeQ", "[", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{"a", ",", "b", ",", "c", ",", "d", ",", "e", ",", "n"}], "}"}],
       ",", "x"}], "]"}], " ", "&&", " ", 
    RowBox[{"IGtQ", "[", 
     RowBox[{"p", ",", "0"}], "]"}]}]}]}]], "Code",
 CellChangeTimes->{{3.494097279728842*^9, 3.494097309778884*^9}, {
   3.494099665582182*^9, 3.4940996672021847`*^9}, {3.4940997193022575`*^9, 
   3.494099719662258*^9}, 3.4941724567488375`*^9, 3.494172717389202*^9, 
   3.495161451843186*^9, 3.4951616878092003`*^9, 3.495162292263462*^9, 
   3.49516247887099*^9, 3.4951651027064013`*^9, 3.495165649947362*^9, 
   3.5487331865147505`*^9, 3.548733345705856*^9, 3.5505964257774076`*^9, 
   3.550685533335864*^9, 3.550783513921302*^9, {3.5705566874834847`*^9, 
   3.5705566892834873`*^9}, {3.57058725087962*^9, 3.570587252279622*^9}, 
   3.5705872936296797`*^9, 3.5705874590599117`*^9, 3.5705874900199547`*^9, 
   3.570588226580986*^9, 3.5705883016910915`*^9, 3.6219073055922127`*^9, 
   3.621907513766119*^9, {3.6219082405466886`*^9, 3.6219082598207912`*^9}, 
   3.621908320777278*^9, 3.621908457646106*^9, {3.621967738573349*^9, 
   3.621967751729101*^9}, 3.622067810886671*^9, 3.6221437688985415`*^9, {
   3.622661669560911*^9, 3.6226616751069202`*^9}, {3.705192407067874*^9, 
   3.7051924099010363`*^9}, {3.715124171484437*^9, 3.7151241763056602`*^9}, 
   3.7165734914199686`*^9, {3.7165774345004997`*^9, 3.716577444014044*^9}, {
   3.7165775255857096`*^9, 3.7165775484090147`*^9}, {3.716680021596235*^9, 
   3.71668003409895*^9}},
 Background->GrayLevel[0.85]],

Cell["", "Subsubsection",
 CellDingbat->None,
 CellChangeTimes->{3.4796643211106243`*^9, 3.4941724567488375`*^9}]
}, Closed]]
}, Closed]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"\t\t", 
  RowBox[{Cell[TextData[StyleBox["2:",
    FontFamily->"Arial",
    FontColor->RGBColor[1, 0, 0]]], "None"], "  ", 
   RowBox[{"\[Integral]", 
    RowBox[{
     FractionBox[
      SuperscriptBox[
       RowBox[{"(", 
        RowBox[{"a", "+", 
         RowBox[{"b", " ", 
          RowBox[{"Log", "[", 
           RowBox[{"c", " ", 
            SuperscriptBox["x", "n"]}], "]"}]}]}], ")"}], "p"], 
      SuperscriptBox[
       RowBox[{"(", 
        RowBox[{"d", "+", 
         RowBox[{"e", " ", "x"}]}], ")"}], "2"]], 
     RowBox[{"\[DifferentialD]", "x"}], "  ", 
     StyleBox["when",
      FontFamily->"Arial",
      FontWeight->"Plain"], 
     StyleBox["  ",
      FontFamily->"Arial",
      FontWeight->"Plain"], Cell[TextData[Cell[BoxData[
      RowBox[{"p", ">", "0"}]]]], "None"]}]}]}]}]], "Subsubtitle",
 CellDingbat->None,
 CellChangeTimes->{
  3.477935275784027*^9, {3.477935350060832*^9, 3.477935352384173*^9}, {
   3.477935393803731*^9, 3.477935400102789*^9}, {3.477935515378547*^9, 
   3.47793552034569*^9}, 3.478120029940968*^9, {3.479318860690858*^9, 
   3.47931886615872*^9}, {3.4794185033278093`*^9, 3.479418503918659*^9}, 
   3.4795122294117584`*^9, {3.479615913307893*^9, 3.4796159352794867`*^9}, 
   3.4796160386581373`*^9, 3.4796867204045024`*^9, {3.4928025699585147`*^9, 
   3.492802570130115*^9}, 3.492822274480175*^9, 3.492825822242408*^9, {
   3.4940970615585365`*^9, 3.494097062168537*^9}, {3.496441349250718*^9, 
   3.496441349830719*^9}, 3.4964414848609076`*^9, 3.496521708137803*^9, {
   3.4965218981240697`*^9, 3.49652189838407*^9}, 3.4965229070755*^9, 
   3.519247079685614*^9, {3.5193208582062006`*^9, 3.5193208612170057`*^9}, 
   3.5193325694253187`*^9, {3.5193422443984776`*^9, 3.5193422447260776`*^9}, 
   3.5193424488212357`*^9, {3.5193434708254333`*^9, 3.519343473103037*^9}, {
   3.5193435097631016`*^9, 3.51934353169674*^9}, {3.519345739319023*^9, 
   3.519345739599823*^9}, 3.5193462601259375`*^9, {3.5193475061060295`*^9, 
   3.5193475233908596`*^9}, {3.519351391880224*^9, 3.5193513931402254`*^9}, {
   3.519403773021052*^9, 3.5194037798564425`*^9}, 3.5194106793250647`*^9, {
   3.519537578341393*^9, 3.5195375792305946`*^9}, {3.5195376277778797`*^9, 
   3.51953767927357*^9}, {3.5197586260636144`*^9, 3.5197586260636144`*^9}, {
   3.51978053295651*^9, 3.519780542862528*^9}, {3.5197806526087203`*^9, 
   3.5197806657595434`*^9}, {3.5197807490168896`*^9, 3.5197807642581167`*^9}, 
   3.5197809004619555`*^9, {3.519782653514635*^9, 3.5197826623286505`*^9}, {
   3.5200207810164795`*^9, 3.520020785046485*^9}, {3.5213126833374643`*^9, 
   3.5213126833374643`*^9}, {3.521328235411002*^9, 3.521328235411002*^9}, {
   3.523315567893022*^9, 3.523315567893022*^9}, {3.5233157569332867`*^9, 
   3.5233157613032923`*^9}, {3.5323023198133526`*^9, 3.532302355723403*^9}, {
   3.5323026417638035`*^9, 3.5323026417638035`*^9}, {3.5323026980138817`*^9, 
   3.5323026980138817`*^9}, {3.532636287104328*^9, 3.532636287104328*^9}, {
   3.5330803686035347`*^9, 3.533080368863535*^9}, {3.533248909289961*^9, 
   3.5332489110299635`*^9}, {3.534962469565694*^9, 3.5349624910757236`*^9}, {
   3.5349625224057674`*^9, 3.534962522655768*^9}, {3.534965265519608*^9, 
   3.534965265519608*^9}, {3.5349668288168063`*^9, 3.5349668292668066`*^9}, {
   3.5349747358481646`*^9, 3.5349747358481646`*^9}, {3.534975457949176*^9, 
   3.534975457949176*^9}, {3.5368633963532934`*^9, 3.536863396571694*^9}, {
   3.541644322511304*^9, 3.5416443577513533`*^9}, {3.5416458269234104`*^9, 
   3.541645839633428*^9}, {3.5416460312236967`*^9, 3.541646031483697*^9}, 
   3.541646227783972*^9, {3.541647080335165*^9, 3.5416471077052035`*^9}, {
   3.541648997607849*^9, 3.5416489978278494`*^9}, 3.541649088407976*^9, {
   3.5417848711596775`*^9, 3.541784902429721*^9}, {3.541786145331461*^9, 
   3.5417861455914617`*^9}, {3.5417870037166634`*^9, 3.5417870039366636`*^9}, 
   3.5462979620242105`*^9, {3.546298264094633*^9, 3.546298265344635*^9}, {
   3.546299000235664*^9, 3.546299001505666*^9}, {3.546315119909564*^9, 
   3.5463151267659564`*^9}, {3.547227356319705*^9, 3.547227356319705*^9}, 
   3.547918559331044*^9, {3.547918610170952*^9, 3.5479186304411116`*^9}, 
   3.548537755517557*^9, 3.5485441629685287`*^9, 3.5485517520154133`*^9, {
   3.5488740727887154`*^9, 3.5488740727887154`*^9}, {3.548874206618903*^9, 
   3.548874206808903*^9}, 3.548877100795455*^9, 3.550596464087599*^9, {
   3.5505965767870445`*^9, 3.5505965767870445`*^9}, 3.5505966202465305`*^9, {
   3.5506039138305197`*^9, 3.55060391400453*^9}, {3.5506040039986773`*^9, 
   3.550604005776779*^9}, {3.5506178888272758`*^9, 3.5506178900273447`*^9}, {
   3.5507714128001575`*^9, 3.5507714579237385`*^9}, {3.5507720333616514`*^9, 
   3.550772050061607*^9}, {3.5507720884518023`*^9, 3.550772097307309*^9}, {
   3.550772133360371*^9, 3.550772140213763*^9}, 3.5507762763873386`*^9, {
   3.550777564241*^9, 3.550777571601421*^9}, {3.5507779200673523`*^9, 
   3.550777926338711*^9}, {3.5507780144627514`*^9, 3.5507780144627514`*^9}, {
   3.5507783238644476`*^9, 3.5507783246744943`*^9}, 3.5507785128222556`*^9, 
   3.5521508119647827`*^9, 3.5705569126638002`*^9, {3.570556975693888*^9, 
   3.570556979963894*^9}, 3.5705588294664836`*^9, {3.570587085089388*^9, 
   3.570587085089388*^9}, 3.570587182159524*^9, {3.5705883591111717`*^9, 
   3.570588363461178*^9}, 3.621907041099084*^9, 3.6219071138102427`*^9, {
   3.621907394614304*^9, 3.621907394614304*^9}, {3.6219083686370153`*^9, 
   3.6219083686370153`*^9}, 3.621978802143149*^9, 3.62214604224857*^9, {
   3.6231278490802207`*^9, 3.6231278509210243`*^9}, {3.7165731297402816`*^9, 
   3.716573181051216*^9}, 3.7165735430509214`*^9, {3.71657441317469*^9, 
   3.7165744165798845`*^9}, {3.7165792519664526`*^9, 3.7165792521554637`*^9}, 
   3.7166658474069195`*^9, 3.746120693390147*^9},
 FontSize->12,
 FontWeight->"Bold"],

Cell["Derivation: Integration by parts", "Subsubsection",
 CellDingbat->"\[FilledSmallSquare]",
 CellChangeTimes->{{3.4794189093216*^9, 3.479418932274605*^9}, {
   3.479418981395237*^9, 3.4794189822564754`*^9}, {3.4794192068193808`*^9, 
   3.4794192077607346`*^9}, 3.479420089138093*^9, {3.479420130978256*^9, 
   3.4794201410627565`*^9}, {3.479420560345656*^9, 3.479420578171288*^9}, {
   3.479420683943381*^9, 3.4794206847645617`*^9}, {3.4794210347678413`*^9, 
   3.4794210503903055`*^9}, 3.4803613662913427`*^9, {3.480361406058525*^9, 
   3.48036141974821*^9}, {3.4803614672865667`*^9, 3.480361474717252*^9}, 
   3.48070534977779*^9, {3.4928296953212276`*^9, 3.492829707041244*^9}, 
   3.4941724084687696`*^9, 3.4941724567488375`*^9, 3.494172783029294*^9, {
   3.495162076203082*^9, 3.495162102707529*^9}, {3.495162264932214*^9, 
   3.495162277318636*^9}, {3.4951637747120676`*^9, 3.495163775320469*^9}, {
   3.4951642488437004`*^9, 3.4951642509653044`*^9}, {3.4952359429371166`*^9, 
   3.495235964997147*^9}, {3.4952361839874535`*^9, 3.4952362099374905`*^9}, {
   3.5507775799849005`*^9, 3.5507775799849005`*^9}, {3.550778022788227*^9, 
   3.5507780230002394`*^9}, {3.5513710199629207`*^9, 3.551371030689534*^9}}],

Cell[TextData[{
 "Basis: ",
 Cell[BoxData[
  RowBox[{
   FractionBox["1", 
    SuperscriptBox[
     RowBox[{"(", 
      RowBox[{"d", "+", 
       RowBox[{"e", " ", "x"}]}], ")"}], "2"]], "\[Equal]", 
   RowBox[{
    SubscriptBox["\[PartialD]", "x"], 
    FractionBox["x", 
     RowBox[{"d", " ", 
      RowBox[{"(", 
       RowBox[{"d", "+", 
        RowBox[{"e", " ", "x"}]}], ")"}]}]]}]}]]]
}], "Subsubsection",
 CellDingbat->"\[FilledSmallSquare]",
 CellChangeTimes->{{3.4794189093216*^9, 3.479418932274605*^9}, {
   3.479418981395237*^9, 3.4794189822564754`*^9}, {3.4794192068193808`*^9, 
   3.4794192077607346`*^9}, 3.479420089138093*^9, {3.479420130978256*^9, 
   3.4794201410627565`*^9}, {3.479420560345656*^9, 3.479420578171288*^9}, {
   3.479420683943381*^9, 3.4794206847645617`*^9}, {3.4794210347678413`*^9, 
   3.4794210503903055`*^9}, 3.4803613662913427`*^9, {3.480361406058525*^9, 
   3.48036141974821*^9}, {3.4803614672865667`*^9, 3.480361474717252*^9}, 
   3.48070534977779*^9, {3.4928296953212276`*^9, 3.492829707041244*^9}, 
   3.4941724084687696`*^9, 3.4941724567488375`*^9, 3.494172783029294*^9, {
   3.495162076203082*^9, 3.495162102707529*^9}, {3.495162264932214*^9, 
   3.495162277318636*^9}, {3.4951637747120676`*^9, 3.495163775320469*^9}, {
   3.4951642488437004`*^9, 3.4951642509653044`*^9}, {3.4952359429371166`*^9, 
   3.495235964997147*^9}, {3.4952361839874535`*^9, 3.4952362099374905`*^9}, {
   3.5507775799849005`*^9, 3.5507775799849005`*^9}, {3.550778022788227*^9, 
   3.5507780230002394`*^9}, {3.55137103428874*^9, 3.5513710351447887`*^9}, {
   3.5513711271940536`*^9, 3.5513711467451725`*^9}, {3.5705870859093895`*^9, 
   3.5705870859093895`*^9}, {3.5705883723911905`*^9, 
   3.5705883834412055`*^9}, {3.621907114350274*^9, 3.6219071155383415`*^9}, {
   3.621907256050379*^9, 3.621907256050379*^9}, {3.621907395263341*^9, 
   3.621907395263341*^9}, {3.7165731589009495`*^9, 3.7165731589049497`*^9}, {
   3.7165745815023174`*^9, 3.7165745815023174`*^9}}],

Cell[TextData[{
 "Basis: ",
 Cell[BoxData[
  RowBox[{
   RowBox[{
    SubscriptBox["\[PartialD]", "x"], 
    SuperscriptBox[
     RowBox[{"(", 
      RowBox[{"a", "+", 
       RowBox[{"b", " ", 
        RowBox[{"Log", "[", 
         RowBox[{"c", " ", 
          SuperscriptBox["x", "n"]}], "]"}]}]}], ")"}], "p"]}], "\[Equal]", 
   FractionBox[
    RowBox[{"b", " ", "n", " ", "p", " ", 
     SuperscriptBox[
      RowBox[{"(", 
       RowBox[{"a", "+", 
        RowBox[{"b", " ", 
         RowBox[{"Log", "[", 
          RowBox[{"c", " ", 
           SuperscriptBox["x", "n"]}], "]"}]}]}], ")"}], 
      RowBox[{"p", "-", "1"}]]}], "x"]}]], "Input",
  CellChangeTimes->{{3.550786187777238*^9, 3.5507862140807424`*^9}}]
}], "Subsubsection",
 CellChangeTimes->{
  3.4941724567488375`*^9, {3.550786175784552*^9, 3.5507861768116107`*^9}, {
   3.5507862232202654`*^9, 3.550786224226323*^9}, {3.550787132861294*^9, 
   3.5507871374785576`*^9}, {3.5508065246874123`*^9, 
   3.5508065290326605`*^9}, {3.5706338729761806`*^9, 
   3.5706338776861873`*^9}, {3.6219070940231113`*^9, 
   3.6219070945861435`*^9}, {3.6219074275601883`*^9, 
   3.6219074275601883`*^9}, {3.7165731589349513`*^9, 
   3.7165731589389515`*^9}, {3.71657319597007*^9, 3.71657319597007*^9}, {
   3.7165741075952115`*^9, 3.7165741075952115`*^9}}],

Cell[TextData[{
 "Rule: If  ",
 Cell[BoxData[
  RowBox[{"p", ">", "0"}]]],
 ", then"
}], "Subsubsection",
 CellDingbat->"\[FilledSmallSquare]",
 CellChangeTimes->{{3.4794189093216*^9, 3.479418932274605*^9}, {
   3.479418981395237*^9, 3.4794189822564754`*^9}, {3.4794192068193808`*^9, 
   3.4794192077607346`*^9}, 3.479420089138093*^9, {3.479420130978256*^9, 
   3.4794201410627565`*^9}, {3.479420560345656*^9, 3.479420578171288*^9}, {
   3.479420683943381*^9, 3.4794206847645617`*^9}, {3.4794210347678413`*^9, 
   3.4794210503903055`*^9}, 3.4803613662913427`*^9, {3.480361406058525*^9, 
   3.48036141974821*^9}, {3.4803614672865667`*^9, 3.480361474717252*^9}, 
   3.48070534977779*^9, {3.4928296953212276`*^9, 3.492829707041244*^9}, 
   3.4941724084687696`*^9, 3.4941724567488375`*^9, 3.494172783029294*^9, {
   3.495162076203082*^9, 3.495162102707529*^9}, {3.495162264932214*^9, 
   3.495162277318636*^9}, {3.4951637747120676`*^9, 3.495163775320469*^9}, {
   3.4951642488437004`*^9, 3.4951642509653044`*^9}, {3.4952359429371166`*^9, 
   3.495235964997147*^9}, {3.4952361839874535`*^9, 3.4952362099374905`*^9}, {
   3.5507775799849005`*^9, 3.5507775799849005`*^9}, {3.550778022788227*^9, 
   3.5507780230002394`*^9}, {3.5705569857539024`*^9, 
   3.5705569857539024`*^9}, {3.570587087049391*^9, 3.570587087049391*^9}, {
   3.62190739577437*^9, 3.62190739577437*^9}, {3.6219083717801948`*^9, 
   3.6219083717801948`*^9}, {3.7165748374749584`*^9, 3.7165748374749584`*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{"\[Integral]", 
   RowBox[{
    FractionBox[
     SuperscriptBox[
      RowBox[{"(", 
       RowBox[{"a", "+", 
        RowBox[{"b", " ", 
         RowBox[{"Log", "[", 
          RowBox[{"c", " ", 
           SuperscriptBox["x", "n"]}], "]"}]}]}], ")"}], "p"], 
     SuperscriptBox[
      RowBox[{"(", 
       RowBox[{"d", "+", 
        RowBox[{"e", " ", "x"}]}], ")"}], "2"]], 
    RowBox[{"\[DifferentialD]", 
     RowBox[{"x", "  ", "\[LongRightArrow]", "  ", 
      FractionBox[
       RowBox[{"x", " ", 
        SuperscriptBox[
         RowBox[{"(", 
          RowBox[{"a", "+", 
           RowBox[{"b", " ", 
            RowBox[{"Log", "[", 
             RowBox[{"c", " ", 
              SuperscriptBox["x", "n"]}], "]"}]}]}], ")"}], "p"]}], 
       RowBox[{"d", 
        RowBox[{"(", 
         RowBox[{"d", "+", 
          RowBox[{"e", " ", "x"}]}], ")"}]}]]}]}]}]}], "-", 
  RowBox[{
   FractionBox[
    RowBox[{"b", " ", "n", " ", "p"}], "d"], 
   RowBox[{"\[Integral]", 
    RowBox[{
     FractionBox[
      SuperscriptBox[
       RowBox[{"(", 
        RowBox[{"a", "+", 
         RowBox[{"b", " ", 
          RowBox[{"Log", "[", 
           RowBox[{"c", " ", 
            SuperscriptBox["x", "n"]}], "]"}]}]}], ")"}], 
       RowBox[{"p", "-", "1"}]], 
      RowBox[{"d", "+", 
       RowBox[{"e", " ", "x"}]}]], 
     RowBox[{"\[DifferentialD]", "x"}]}]}]}]}]], "Subsubtitle",
 CellDingbat->None,
 CellChangeTimes->{{3.4796579732027807`*^9, 3.479658002474872*^9}, {
   3.4796580599975853`*^9, 3.4796580609489536`*^9}, {3.479658295195784*^9, 
   3.47965829684816*^9}, 3.4796611938939075`*^9, 3.4796613924794593`*^9, {
   3.479661443342597*^9, 3.479661446647349*^9}, {3.479661576554146*^9, 
   3.479661589302477*^9}, 3.479661847553824*^9, {3.4796622294729967`*^9, 
   3.4796622450654173`*^9}, {3.479686720424531*^9, 3.4796867204345455`*^9}, {
   3.4796874646646957`*^9, 3.4796874745589232`*^9}, {3.492826573513727*^9, 
   3.492826578630536*^9}, {3.4928267070863624`*^9, 3.492826707460763*^9}, 
   3.4928267903497095`*^9, {3.492829799151373*^9, 3.4928299617216005`*^9}, {
   3.4940972077187414`*^9, 3.4940972347887793`*^9}, {3.49409966398218*^9, 
   3.494099664952181*^9}, {3.4940997156722527`*^9, 3.494099716112253*^9}, 
   3.4941724567488375`*^9, {3.4941727384192314`*^9, 3.494172760679263*^9}, {
   3.495161485476845*^9, 3.4951615041032777`*^9}, 3.4951622258697453`*^9, 
   3.4951623402647467`*^9, {3.4951637900936947`*^9, 3.4951638150849385`*^9}, {
   3.495164178986778*^9, 3.4951642244608574`*^9}, {3.4952361349873853`*^9, 
   3.4952361437173977`*^9}, {3.495236246957542*^9, 3.4952362639675655`*^9}, {
   3.4953184493143997`*^9, 3.4953184761844378`*^9}, {3.5507723300716224`*^9, 
   3.5507723403342094`*^9}, {3.5507769656487627`*^9, 
   3.5507770074691544`*^9}, {3.5507771485962267`*^9, 3.550777160878929*^9}, {
   3.5507772126108875`*^9, 3.550777262326731*^9}, 3.5507773221291523`*^9, {
   3.550777358007204*^9, 3.550777425683075*^9}, {3.5507778941268682`*^9, 
   3.550777904442458*^9}, {3.5507779353092237`*^9, 3.5507780055912437`*^9}, {
   3.570587087939392*^9, 3.5705870896893945`*^9}, {3.570587182719525*^9, 
   3.570587183799526*^9}, {3.5705884267412663`*^9, 3.5705885048013754`*^9}, {
   3.621907042149144*^9, 3.6219070429171877`*^9}, {3.6219071161243753`*^9, 
   3.621907117412449*^9}, 3.6219071880524893`*^9, 3.6219072566944156`*^9, {
   3.6219073963164015`*^9, 3.6219073969664383`*^9}, {3.6219085308942957`*^9, 
   3.62190854058885*^9}, {3.7165731300633*^9, 3.716573181064217*^9}, {
   3.716574618677444*^9, 3.7165746619449186`*^9}, 3.7165747081535616`*^9, 
   3.716574739714367*^9},
 TextAlignment->Center,
 FontSize->12,
 FontWeight->"Bold"],

Cell["Program code:", "Subsubsection",
 CellDingbat->"\[FilledSmallSquare]",
 CellChangeTimes->{{3.4794189093216*^9, 3.479418932274605*^9}, {
   3.479418981395237*^9, 3.4794189822564754`*^9}, {3.4794192068193808`*^9, 
   3.4794192077607346`*^9}, 3.479420089138093*^9, {3.479420130978256*^9, 
   3.4794201410627565`*^9}, {3.479420560345656*^9, 3.479420578171288*^9}, {
   3.479420683943381*^9, 3.4794206847645617`*^9}, {3.4794210347678413`*^9, 
   3.4794210503903055`*^9}, 3.4803613662913427`*^9, {3.480361406058525*^9, 
   3.48036141974821*^9}, {3.4803614672865667`*^9, 3.480361474717252*^9}, 
   3.4807050675119123`*^9, {3.492804314166378*^9, 3.4928043441496305`*^9}, {
   3.4928044532166224`*^9, 3.492804453513023*^9}, {3.492805162266266*^9, 
   3.492805165713872*^9}, 3.4941724567488375`*^9}],

Cell[BoxData[
 RowBox[{
  RowBox[{"Int", "[", 
   RowBox[{
    RowBox[{
     RowBox[{
      RowBox[{"(", 
       RowBox[{"a_.", "+", 
        RowBox[{"b_.", "*", 
         RowBox[{"Log", "[", 
          RowBox[{"c_.", "*", 
           RowBox[{"x_", "^", "n_."}]}], "]"}]}]}], ")"}], "^", "p_."}], "/", 
     RowBox[{
      RowBox[{"(", 
       RowBox[{"d_", "+", 
        RowBox[{"e_.", "*", "x_"}]}], ")"}], "^", "2"}]}], ",", "x_Symbol"}], 
   "]"}], " ", ":=", "\n", "  ", 
  RowBox[{
   RowBox[{
    RowBox[{"x", "*", 
     RowBox[{
      RowBox[{
       RowBox[{"(", 
        RowBox[{"a", "+", 
         RowBox[{"b", "*", 
          RowBox[{"Log", "[", 
           RowBox[{"c", "*", 
            RowBox[{"x", "^", "n"}]}], "]"}]}]}], ")"}], "^", "p"}], "/", 
      RowBox[{"(", 
       RowBox[{"d", "*", 
        RowBox[{"(", 
         RowBox[{"d", "+", 
          RowBox[{"e", "*", "x"}]}], ")"}]}], ")"}]}]}], " ", "-", " ", 
    RowBox[{"b", "*", "n", "*", 
     RowBox[{"p", "/", "d"}], "*", 
     RowBox[{"Int", "[", 
      RowBox[{
       RowBox[{
        RowBox[{
         RowBox[{"(", 
          RowBox[{"a", "+", 
           RowBox[{"b", "*", 
            RowBox[{"Log", "[", 
             RowBox[{"c", "*", 
              RowBox[{"x", "^", "n"}]}], "]"}]}]}], ")"}], "^", 
         RowBox[{"(", 
          RowBox[{"p", "-", "1"}], ")"}]}], "/", 
        RowBox[{"(", 
         RowBox[{"d", "+", 
          RowBox[{"e", "*", "x"}]}], ")"}]}], ",", "x"}], "]"}]}]}], " ", "/;",
    "\n", 
   RowBox[{
    RowBox[{"FreeQ", "[", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{
       "a", ",", "b", ",", "c", ",", "d", ",", "e", ",", "n", ",", "p"}], 
       "}"}], ",", "x"}], "]"}], " ", "&&", " ", 
    RowBox[{"GtQ", "[", 
     RowBox[{"p", ",", "0"}], "]"}]}]}]}]], "Code",
 CellChangeTimes->{{3.494097279728842*^9, 3.494097309778884*^9}, {
   3.494099665582182*^9, 3.4940996672021847`*^9}, {3.4940997193022575`*^9, 
   3.494099719662258*^9}, 3.4941724567488375`*^9, 3.494172717389202*^9, 
   3.495161451843186*^9, 3.4951616878092003`*^9, 3.495162292263462*^9, 
   3.495163765133651*^9, 3.4951638729766407`*^9, 3.4951641424515133`*^9, 
   3.495236092757326*^9, 3.495236163997426*^9, {3.5486952975689793`*^9, 
   3.5486952986589804`*^9}, {3.5487331745470657`*^9, 
   3.5487331809144306`*^9}, {3.5487333243886366`*^9, 3.548733336289317*^9}, 
   3.550777519812459*^9, {3.5507775514952707`*^9, 3.5507775541634235`*^9}, 
   3.5507777756290903`*^9, {3.5507780357669697`*^9, 3.5507780427133665`*^9}, {
   3.550778079900494*^9, 3.5507781010997066`*^9}, 3.5507781964631605`*^9, 
   3.5705569965739174`*^9, {3.5705872528896227`*^9, 3.5705872540496244`*^9}, 
   3.570587298409687*^9, 3.570587453469904*^9, 3.570587490809956*^9, {
   3.570588544891432*^9, 3.5705885471414347`*^9}, 3.570588594541501*^9, 
   3.6219073061912465`*^9, 3.6219075144541583`*^9, {3.6219083731262717`*^9, 
   3.62190840019582*^9}, {3.6219084317176228`*^9, 3.6219084590131845`*^9}, 
   3.6219086096928024`*^9, 3.622067833170946*^9, {3.705191878171623*^9, 
   3.7051918830539026`*^9}, 3.705192423863835*^9, 3.7165734914499702`*^9, {
   3.7165747875811048`*^9, 3.7165748554499865`*^9}, {3.7228167052951593`*^9, 
   3.72281670582819*^9}},
 Background->GrayLevel[0.85]],

Cell["", "Subsubsection",
 CellDingbat->None,
 CellChangeTimes->{3.4796643211106243`*^9, 3.4941724567488375`*^9}]
}, Closed]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"\t\t", 
  RowBox[{Cell[TextData[StyleBox["3:",
    FontFamily->"Arial",
    FontColor->RGBColor[1, 0, 0]]], "None"], "  ", 
   RowBox[{"\[Integral]", 
    RowBox[{
     SuperscriptBox[
      RowBox[{"(", 
       RowBox[{"d", "+", 
        RowBox[{"e", " ", "x"}]}], ")"}], "q"], " ", 
     SuperscriptBox[
      RowBox[{"(", 
       RowBox[{"a", "+", 
        RowBox[{"b", " ", 
         RowBox[{"Log", "[", 
          RowBox[{"c", " ", 
           SuperscriptBox["x", "n"]}], "]"}]}]}], ")"}], "p"], 
     RowBox[{"\[DifferentialD]", "x"}], "  ", 
     StyleBox["when",
      FontFamily->"Arial",
      FontWeight->"Plain"], 
     StyleBox["  ",
      FontFamily->"Arial",
      FontWeight->"Plain"], Cell[TextData[Cell[BoxData[
      RowBox[{
       RowBox[{"p", ">", "0"}], " ", "\[And]", " ", 
       RowBox[{"q", "\[NotEqual]", 
        RowBox[{"-", "1"}]}]}]]]], "None"]}]}]}]}]], "Subsubtitle",
 CellDingbat->None,
 CellChangeTimes->{
  3.477935275784027*^9, {3.477935350060832*^9, 3.477935352384173*^9}, {
   3.477935393803731*^9, 3.477935400102789*^9}, {3.477935515378547*^9, 
   3.47793552034569*^9}, 3.478120029940968*^9, {3.479318860690858*^9, 
   3.47931886615872*^9}, {3.4794185033278093`*^9, 3.479418503918659*^9}, 
   3.4795122294117584`*^9, {3.479615913307893*^9, 3.4796159352794867`*^9}, 
   3.4796160386581373`*^9, 3.4796867204045024`*^9, {3.4928025699585147`*^9, 
   3.492802570130115*^9}, 3.492822274480175*^9, 3.492825822242408*^9, {
   3.4940970615585365`*^9, 3.494097062168537*^9}, {3.496441349250718*^9, 
   3.496441349830719*^9}, 3.4964414848609076`*^9, 3.496521708137803*^9, {
   3.4965218981240697`*^9, 3.49652189838407*^9}, 3.4965229070755*^9, 
   3.519247079685614*^9, {3.5193208582062006`*^9, 3.5193208612170057`*^9}, 
   3.5193325694253187`*^9, {3.5193422443984776`*^9, 3.5193422447260776`*^9}, 
   3.5193424488212357`*^9, {3.5193434708254333`*^9, 3.519343473103037*^9}, {
   3.5193435097631016`*^9, 3.51934353169674*^9}, {3.519345739319023*^9, 
   3.519345739599823*^9}, 3.5193462601259375`*^9, {3.5193475061060295`*^9, 
   3.5193475233908596`*^9}, {3.519351391880224*^9, 3.5193513931402254`*^9}, {
   3.519403773021052*^9, 3.5194037798564425`*^9}, 3.5194106793250647`*^9, {
   3.519537578341393*^9, 3.5195375792305946`*^9}, {3.5195376277778797`*^9, 
   3.51953767927357*^9}, {3.5197586260636144`*^9, 3.5197586260636144`*^9}, {
   3.51978053295651*^9, 3.519780542862528*^9}, {3.5197806526087203`*^9, 
   3.5197806657595434`*^9}, {3.5197807490168896`*^9, 3.5197807642581167`*^9}, 
   3.5197809004619555`*^9, {3.519782653514635*^9, 3.5197826623286505`*^9}, {
   3.5200207810164795`*^9, 3.520020785046485*^9}, {3.5213126833374643`*^9, 
   3.5213126833374643`*^9}, {3.521328235411002*^9, 3.521328235411002*^9}, {
   3.523315567893022*^9, 3.523315567893022*^9}, {3.5233157569332867`*^9, 
   3.5233157613032923`*^9}, {3.5323023198133526`*^9, 3.532302355723403*^9}, {
   3.5323026417638035`*^9, 3.5323026417638035`*^9}, {3.5323026980138817`*^9, 
   3.5323026980138817`*^9}, {3.532636287104328*^9, 3.532636287104328*^9}, {
   3.5330803686035347`*^9, 3.533080368863535*^9}, {3.533248909289961*^9, 
   3.5332489110299635`*^9}, {3.534962469565694*^9, 3.5349624910757236`*^9}, {
   3.5349625224057674`*^9, 3.534962522655768*^9}, {3.534965265519608*^9, 
   3.534965265519608*^9}, {3.5349668288168063`*^9, 3.5349668292668066`*^9}, {
   3.5349747358481646`*^9, 3.5349747358481646`*^9}, {3.534975457949176*^9, 
   3.534975457949176*^9}, {3.5368633963532934`*^9, 3.536863396571694*^9}, {
   3.541644322511304*^9, 3.5416443577513533`*^9}, {3.5416458269234104`*^9, 
   3.541645839633428*^9}, {3.5416460312236967`*^9, 3.541646031483697*^9}, 
   3.541646227783972*^9, {3.541647080335165*^9, 3.5416471077052035`*^9}, {
   3.541648997607849*^9, 3.5416489978278494`*^9}, 3.541649088407976*^9, {
   3.5417848711596775`*^9, 3.541784902429721*^9}, {3.541786145331461*^9, 
   3.5417861455914617`*^9}, {3.5417870037166634`*^9, 3.5417870039366636`*^9}, 
   3.5462979620242105`*^9, {3.546298264094633*^9, 3.546298265344635*^9}, {
   3.546299000235664*^9, 3.546299001505666*^9}, {3.546315119909564*^9, 
   3.5463151267659564`*^9}, {3.547227356319705*^9, 3.547227356319705*^9}, 
   3.547918559331044*^9, {3.547918610170952*^9, 3.5479186304411116`*^9}, 
   3.548537755517557*^9, 3.5485441629685287`*^9, 3.5485517520154133`*^9, {
   3.5488740727887154`*^9, 3.5488740727887154`*^9}, {3.548874206618903*^9, 
   3.548874206808903*^9}, 3.548877100795455*^9, 3.550596464087599*^9, {
   3.5505965767870445`*^9, 3.5505965767870445`*^9}, 3.5505966202465305`*^9, {
   3.550597248366457*^9, 3.5505972542557936`*^9}, 3.550597491628371*^9, {
   3.5505978776954527`*^9, 3.5505978785255003`*^9}, {3.550785724970767*^9, 
   3.5507857352053523`*^9}, {3.5507858104606566`*^9, 
   3.5507858130378036`*^9}, {3.5507865184321504`*^9, 3.5507865310418715`*^9}, 
   3.550787089076789*^9, {3.55078721584204*^9, 3.5507872181921744`*^9}, {
   3.5507875005533247`*^9, 3.550787503884515*^9}, {3.550787735926787*^9, 
   3.5507877382099175`*^9}, {3.5508056656032753`*^9, 
   3.5508056692454834`*^9}, {3.550806197483697*^9, 3.550806255319005*^9}, {
   3.5508063848254123`*^9, 3.5508063956580315`*^9}, {3.5508064571475487`*^9, 
   3.550806462117833*^9}, {3.550806902873043*^9, 3.550806902873043*^9}, {
   3.5521512409811363`*^9, 3.5521512416363373`*^9}, 3.552151673429496*^9, {
   3.570633677715907*^9, 3.5706336780259075`*^9}, 3.5706337728060403`*^9, 
   3.5706339182162437`*^9, {3.5706340124663763`*^9, 3.5706340351664076`*^9}, 
   3.5706342751167436`*^9, {3.570634506477068*^9, 3.5706345066970677`*^9}, {
   3.570634558707141*^9, 3.570634563717148*^9}, 3.570634625187234*^9, {
   3.5706346580972795`*^9, 3.5706346639972878`*^9}, 3.6219070932180653`*^9, 
   3.6219071839462547`*^9, {3.621907384358718*^9, 3.621907384358718*^9}, 
   3.621978798724953*^9, {3.622066838723067*^9, 3.6220668412612123`*^9}, {
   3.6221385624397492`*^9, 3.6221385685300975`*^9}, {3.622138930723814*^9, 
   3.622138930723814*^9}, {3.622144231076977*^9, 3.6221442312519865`*^9}, {
   3.622223728089137*^9, 3.622223728239146*^9}, {3.7165731313413734`*^9, 
   3.716573195960069*^9}, 3.7165735440779805`*^9, {3.716574309446757*^9, 
   3.716574317962244*^9}, {3.716579288833562*^9, 3.71657928915758*^9}, 
   3.716665848150962*^9, 3.746120693877175*^9},
 FontSize->12,
 FontWeight->"Bold"],

Cell["Reference: G&R 2.728.1, CRC 501, A&S 4.1.50'", "Subsubsection",
 CellChangeTimes->{
  3.479686820458373*^9, {3.490657960122612*^9, 3.49065796095366*^9}, 
   3.4940010628073196`*^9, 3.4941723607787027`*^9, 3.4941724567488375`*^9, 
   3.494172696119172*^9, 3.4951614417343683`*^9, 3.495161553867365*^9, 
   3.49516358311173*^9, 3.4951639989000616`*^9, 3.495164440568037*^9, 
   3.4951646048051257`*^9}],

Cell["Derivation: Integration by parts", "Subsubsection",
 CellChangeTimes->{3.4941724567488375`*^9}],

Cell[TextData[{
 "Basis: ",
 Cell[BoxData[
  RowBox[{
   RowBox[{
    SubscriptBox["\[PartialD]", "x"], 
    SuperscriptBox[
     RowBox[{"(", 
      RowBox[{"a", "+", 
       RowBox[{"b", " ", 
        RowBox[{"Log", "[", 
         RowBox[{"c", " ", 
          SuperscriptBox["x", "n"]}], "]"}]}]}], ")"}], "p"]}], "\[Equal]", 
   FractionBox[
    RowBox[{"b", " ", "n", " ", "p", " ", 
     SuperscriptBox[
      RowBox[{"(", 
       RowBox[{"a", "+", 
        RowBox[{"b", " ", 
         RowBox[{"Log", "[", 
          RowBox[{"c", " ", 
           SuperscriptBox["x", "n"]}], "]"}]}]}], ")"}], 
      RowBox[{"p", "-", "1"}]]}], "x"]}]], "Input",
  CellChangeTimes->{{3.550786187777238*^9, 3.5507862140807424`*^9}}]
}], "Subsubsection",
 CellChangeTimes->{
  3.4941724567488375`*^9, {3.550786175784552*^9, 3.5507861768116107`*^9}, {
   3.5507862232202654`*^9, 3.550786224226323*^9}, {3.550787132861294*^9, 
   3.5507871374785576`*^9}, {3.5508065246874123`*^9, 
   3.5508065290326605`*^9}, {3.5706338729761806`*^9, 
   3.5706338776861873`*^9}, {3.6219070940231113`*^9, 
   3.6219070945861435`*^9}, {3.6219074275601883`*^9, 
   3.6219074275601883`*^9}, {3.7165731589349513`*^9, 
   3.7165731589389515`*^9}, {3.71657319597007*^9, 3.71657319597007*^9}, {
   3.7165741075952115`*^9, 3.7165741075952115`*^9}}],

Cell[TextData[{
 "Rule: If  ",
 Cell[BoxData[
  RowBox[{
   RowBox[{"p", ">", "0"}], " ", "\[And]", " ", 
   RowBox[{"q", "\[NotEqual]", 
    RowBox[{"-", "1"}]}]}]]],
 ", then"
}], "Subsubsection",
 CellDingbat->"\[FilledSmallSquare]",
 CellChangeTimes->{{3.4794189093216*^9, 3.479418932274605*^9}, {
   3.479418981395237*^9, 3.4794189822564754`*^9}, {3.4794192068193808`*^9, 
   3.4794192077607346`*^9}, 3.479420089138093*^9, {3.479420130978256*^9, 
   3.4794201410627565`*^9}, {3.479420560345656*^9, 3.479420578171288*^9}, {
   3.479420683943381*^9, 3.4794206847645617`*^9}, {3.4794210347678413`*^9, 
   3.4794210503903055`*^9}, 3.4803613662913427`*^9, {3.480361406058525*^9, 
   3.48036141974821*^9}, {3.4803614672865667`*^9, 3.480361474717252*^9}, 
   3.48070534977779*^9, {3.4928296953212276`*^9, 3.492829707041244*^9}, 
   3.4941724084687696`*^9, 3.4941724567488375`*^9, 3.494172783029294*^9, {
   3.495162076203082*^9, 3.495162102707529*^9}, {3.495162264932214*^9, 
   3.495162277318636*^9}, {3.4951624969202213`*^9, 3.495162512208248*^9}, {
   3.515952187031768*^9, 3.5159522248930345`*^9}, {3.5505973068838043`*^9, 
   3.5505973068838043`*^9}, {3.5505978727711706`*^9, 
   3.5505978740932465`*^9}, {3.5507857468510184`*^9, 
   3.5507857495511727`*^9}, {3.550787513208048*^9, 3.550787513208048*^9}, {
   3.5508062679567275`*^9, 3.550806267957728*^9}, {3.5508064679661674`*^9, 
   3.5508064679661674`*^9}, {3.5508069063822436`*^9, 
   3.5508069063822436`*^9}, {3.570634673407301*^9, 3.570634673407301*^9}, {
   3.621907384973753*^9, 3.621907384973753*^9}, {3.622138934116008*^9, 
   3.622138934116008*^9}, {3.7165743242786055`*^9, 3.7165743242786055`*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{"\[Integral]", 
   RowBox[{
    SuperscriptBox[
     RowBox[{"(", 
      RowBox[{"d", "+", 
       RowBox[{"e", " ", "x"}]}], ")"}], "q"], " ", 
    SuperscriptBox[
     RowBox[{"(", 
      RowBox[{"a", "+", 
       RowBox[{"b", " ", 
        RowBox[{"Log", "[", 
         RowBox[{"c", " ", 
          SuperscriptBox["x", "n"]}], "]"}]}]}], ")"}], "p"], 
    RowBox[{"\[DifferentialD]", 
     RowBox[{"x", "  ", "\[LongRightArrow]", "  ", 
      FractionBox[
       RowBox[{
        SuperscriptBox[
         RowBox[{"(", 
          RowBox[{"d", "+", 
           RowBox[{"e", " ", "x"}]}], ")"}], 
         RowBox[{"q", "+", "1"}]], " ", 
        SuperscriptBox[
         RowBox[{"(", 
          RowBox[{"a", "+", 
           RowBox[{"b", " ", 
            RowBox[{"Log", "[", 
             RowBox[{"c", " ", 
              SuperscriptBox["x", "n"]}], "]"}]}]}], ")"}], "p"]}], 
       RowBox[{"e", " ", 
        RowBox[{"(", 
         RowBox[{"q", "+", "1"}], ")"}]}]]}]}]}]}], "-", 
  RowBox[{
   FractionBox[
    RowBox[{"b", " ", "n", " ", "p"}], 
    RowBox[{"e", " ", 
     RowBox[{"(", 
      RowBox[{"q", "+", "1"}], ")"}]}]], 
   RowBox[{"\[Integral]", 
    RowBox[{
     FractionBox[
      RowBox[{
       SuperscriptBox[
        RowBox[{"(", 
         RowBox[{"d", "+", 
          RowBox[{"e", " ", "x"}]}], ")"}], 
        RowBox[{"q", "+", "1"}]], 
       SuperscriptBox[
        RowBox[{"(", 
         RowBox[{"a", "+", 
          RowBox[{"b", " ", 
           RowBox[{"Log", "[", 
            RowBox[{"c", " ", 
             SuperscriptBox["x", "n"]}], "]"}]}]}], ")"}], 
        RowBox[{"p", "-", "1"}]]}], "x"], 
     RowBox[{"\[DifferentialD]", "x"}]}]}]}]}]], "Subsubtitle",
 CellDingbat->None,
 CellChangeTimes->{{3.4796579732027807`*^9, 3.479658002474872*^9}, {
   3.4796580599975853`*^9, 3.4796580609489536`*^9}, {3.479658295195784*^9, 
   3.47965829684816*^9}, 3.4796611938939075`*^9, 3.4796613924794593`*^9, {
   3.479661443342597*^9, 3.479661446647349*^9}, {3.479661576554146*^9, 
   3.479661589302477*^9}, 3.479661847553824*^9, {3.4796622294729967`*^9, 
   3.4796622450654173`*^9}, {3.479686720424531*^9, 3.4796867204345455`*^9}, {
   3.4796874646646957`*^9, 3.4796874745589232`*^9}, {3.492826573513727*^9, 
   3.492826578630536*^9}, {3.4928267070863624`*^9, 3.492826707460763*^9}, 
   3.4928267903497095`*^9, {3.492829799151373*^9, 3.4928299617216005`*^9}, {
   3.4940972077187414`*^9, 3.4940972347887793`*^9}, {3.49409966398218*^9, 
   3.494099664952181*^9}, {3.4940997156722527`*^9, 3.494099716112253*^9}, 
   3.4941724567488375`*^9, {3.4941727384192314`*^9, 3.494172760679263*^9}, {
   3.495161485476845*^9, 3.4951615041032777`*^9}, {3.495239339251871*^9, 
   3.495239350531887*^9}, {3.5159516795928783`*^9, 3.515951774023044*^9}, {
   3.5159518103375072`*^9, 3.5159518622051983`*^9}, {3.515951923864106*^9, 
   3.515951927140112*^9}, {3.5159519768105993`*^9, 3.515952009882657*^9}, 
   3.5159553233944817`*^9, {3.5505972608491707`*^9, 3.550597274947977*^9}, 
   3.550597369091362*^9, {3.550785829313735*^9, 3.550785833160955*^9}, {
   3.550785912985521*^9, 3.550785920871972*^9}, {3.550786127263777*^9, 
   3.5507861279448156`*^9}, {3.550787299403819*^9, 3.550787335965911*^9}, {
   3.550787595248741*^9, 3.550787614258828*^9}, {3.5508057126919684`*^9, 
   3.550805737794404*^9}, {3.550805780401841*^9, 3.5508058355479956`*^9}, 
   3.550806411565942*^9, {3.5508064910194864`*^9, 3.550806494954711*^9}, {
   3.5508065394382553`*^9, 3.5508065414443703`*^9}, 3.550806582248704*^9, {
   3.5706336821559134`*^9, 3.570633725045974*^9}, {3.5706337759160447`*^9, 
   3.570633780486051*^9}, {3.5706338289161186`*^9, 3.570633833786126*^9}, {
   3.5706339218962493`*^9, 3.5706339238062515`*^9}, {3.570634016036381*^9, 
   3.5706340429264183`*^9}, {3.5706340979764957`*^9, 
   3.5706341228365307`*^9}, {3.6219070954191914`*^9, 
   3.6219070967472672`*^9}, {3.6219071847082977`*^9, 3.6219071858123612`*^9}, 
   3.6219072493879976`*^9, {3.621907437888779*^9, 3.6219074697646027`*^9}, {
   3.6221385788166857`*^9, 3.622138599650878*^9}, {3.62213863081966*^9, 
   3.6221386311526794`*^9}, {3.7165731316223893`*^9, 3.71657319598007*^9}, {
   3.7165740476417828`*^9, 3.716574053457115*^9}, {3.71657412610127*^9, 
   3.716574150133645*^9}},
 TextAlignment->Center,
 FontSize->12,
 FontWeight->"Bold"],

Cell["Program code:", "Subsubsection",
 CellDingbat->"\[FilledSmallSquare]",
 CellChangeTimes->{{3.4794189093216*^9, 3.479418932274605*^9}, {
   3.479418981395237*^9, 3.4794189822564754`*^9}, {3.4794192068193808`*^9, 
   3.4794192077607346`*^9}, 3.479420089138093*^9, {3.479420130978256*^9, 
   3.4794201410627565`*^9}, {3.479420560345656*^9, 3.479420578171288*^9}, {
   3.479420683943381*^9, 3.4794206847645617`*^9}, {3.4794210347678413`*^9, 
   3.4794210503903055`*^9}, 3.4803613662913427`*^9, {3.480361406058525*^9, 
   3.48036141974821*^9}, {3.4803614672865667`*^9, 3.480361474717252*^9}, 
   3.4807050675119123`*^9, {3.492804314166378*^9, 3.4928043441496305`*^9}, {
   3.4928044532166224`*^9, 3.492804453513023*^9}, {3.492805162266266*^9, 
   3.492805165713872*^9}, 3.4941724567488375`*^9, {3.5508067550475874`*^9, 
   3.5508067600128717`*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{"Int", "[", 
   RowBox[{
    RowBox[{
     RowBox[{
      RowBox[{"(", 
       RowBox[{"d_", "+", 
        RowBox[{"e_.", "*", "x_"}]}], ")"}], "^", "q_."}], "*", 
     RowBox[{
      RowBox[{"(", 
       RowBox[{"a_.", "+", 
        RowBox[{"b_.", "*", 
         RowBox[{"Log", "[", 
          RowBox[{"c_.", "*", 
           RowBox[{"x_", "^", "n_."}]}], "]"}]}]}], ")"}], "^", "p_."}]}], 
    ",", "x_Symbol"}], "]"}], " ", ":=", "\n", "  ", 
  RowBox[{
   RowBox[{
    RowBox[{
     RowBox[{
      RowBox[{"(", 
       RowBox[{"d", "+", 
        RowBox[{"e", "*", "x"}]}], ")"}], "^", 
      RowBox[{"(", 
       RowBox[{"q", "+", "1"}], ")"}]}], "*", 
     RowBox[{
      RowBox[{
       RowBox[{"(", 
        RowBox[{"a", "+", 
         RowBox[{"b", "*", 
          RowBox[{"Log", "[", 
           RowBox[{"c", "*", 
            RowBox[{"x", "^", "n"}]}], "]"}]}]}], ")"}], "^", "p"}], "/", 
      RowBox[{"(", 
       RowBox[{"e", "*", 
        RowBox[{"(", 
         RowBox[{"q", "+", "1"}], ")"}]}], ")"}]}]}], " ", "-", " ", 
    RowBox[{"b", "*", "n", "*", 
     RowBox[{"p", "/", 
      RowBox[{"(", 
       RowBox[{"e", "*", 
        RowBox[{"(", 
         RowBox[{"q", "+", "1"}], ")"}]}], ")"}]}], "*", 
     RowBox[{"Int", "[", 
      RowBox[{
       RowBox[{
        RowBox[{"(", 
         RowBox[{
          RowBox[{
           RowBox[{"(", 
            RowBox[{"d", "+", 
             RowBox[{"e", "*", "x"}]}], ")"}], "^", 
           RowBox[{"(", 
            RowBox[{"q", "+", "1"}], ")"}]}], "*", 
          RowBox[{
           RowBox[{"(", 
            RowBox[{"a", "+", 
             RowBox[{"b", "*", 
              RowBox[{"Log", "[", 
               RowBox[{"c", "*", 
                RowBox[{"x", "^", "n"}]}], "]"}]}]}], ")"}], "^", 
           RowBox[{"(", 
            RowBox[{"p", "-", "1"}], ")"}]}]}], ")"}], "/", "x"}], ",", "x"}],
       "]"}]}]}], " ", "/;", "\n", 
   RowBox[{
    RowBox[{"FreeQ", "[", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{
       "a", ",", "b", ",", "c", ",", "d", ",", "e", ",", "n", ",", "p", ",", 
        "q"}], "}"}], ",", "x"}], "]"}], " ", "&&", " ", 
    RowBox[{"GtQ", "[", 
     RowBox[{"p", ",", "0"}], "]"}], " ", "&&", " ", 
    RowBox[{"NeQ", "[", 
     RowBox[{"q", ",", 
      RowBox[{"-", "1"}]}], "]"}], " ", "&&", " ", 
    RowBox[{"(", 
     RowBox[{
      RowBox[{"EqQ", "[", 
       RowBox[{"p", ",", "1"}], "]"}], " ", "||", " ", 
      RowBox[{
       RowBox[{"IntegersQ", "[", 
        RowBox[{
         RowBox[{"2", "*", "p"}], ",", 
         RowBox[{"2", "*", "q"}]}], "]"}], " ", "&&", " ", 
       RowBox[{"Not", "[", 
        RowBox[{"IGtQ", "[", 
         RowBox[{"q", ",", "0"}], "]"}], "]"}]}], " ", "||", " ", 
      RowBox[{
       RowBox[{"EqQ", "[", 
        RowBox[{"p", ",", "2"}], "]"}], " ", "&&", " ", 
       RowBox[{"NeQ", "[", 
        RowBox[{"q", ",", "1"}], "]"}]}]}], ")"}]}]}]}]], "Code",
 CellChangeTimes->{{3.494097279728842*^9, 3.494097309778884*^9}, {
   3.494099665582182*^9, 3.4940996672021847`*^9}, {3.4940997193022575`*^9, 
   3.494099719662258*^9}, 3.4941724567488375`*^9, 3.494172717389202*^9, 
   3.495161451843186*^9, 3.4952393044318223`*^9, {3.5159516835396852`*^9, 
   3.515951781430657*^9}, {3.5159519314301195`*^9, 3.515951950571353*^9}, {
   3.5159520705075636`*^9, 3.5159521203104506`*^9}, {3.5159523780997033`*^9, 
   3.515952378520904*^9}, {3.5171893526703444`*^9, 3.517189354994748*^9}, 
   3.5486994866512856`*^9, 3.548733195367257*^9, 3.548733359085621*^9, {
   3.5505973322192535`*^9, 3.550597364542102*^9}, 3.550597395596878*^9, {
   3.550597860600475*^9, 3.5505978617475405`*^9}, {3.5507863045949197`*^9, 
   3.5507863589600286`*^9}, {3.5507863904888325`*^9, 
   3.5507863997893643`*^9}, {3.550786437627528*^9, 3.5507864379395466`*^9}, {
   3.550786475872716*^9, 3.5507864762187357`*^9}, {3.5507875572605677`*^9, 
   3.550787571528384*^9}, {3.550787631550817*^9, 3.5507876875440197`*^9}, {
   3.550805952664694*^9, 3.550805965790445*^9}, {3.5508060676712723`*^9, 
   3.5508061122128196`*^9}, {3.550806285603737*^9, 3.55080629457025*^9}, {
   3.550806648552497*^9, 3.550806661675247*^9}, 3.550806773289631*^9, {
   3.550806848140912*^9, 3.5508068592465477`*^9}, 3.5508807604743958`*^9, {
   3.570633735425988*^9, 3.570633751906011*^9}, {3.5706337894160633`*^9, 
   3.570633818616104*^9}, {3.5706339250862536`*^9, 3.570633927916258*^9}, {
   3.570634020266387*^9, 3.5706340489964275`*^9}, {3.5706341613865843`*^9, 
   3.570634221706669*^9}, 3.570634704687345*^9, {3.6219072913463974`*^9, 
   3.621907293680531*^9}, 3.6219075121810284`*^9, {3.62190771780579*^9, 
   3.621907730339506*^9}, 3.6219084517097664`*^9, {3.622138829567028*^9, 
   3.6221388306760917`*^9}, {3.622138943210528*^9, 3.622139003437973*^9}, {
   3.6221433759760675`*^9, 3.6221433763800907`*^9}, {3.6221448453461113`*^9, 
   3.6221448457941365`*^9}, {3.6221450204811277`*^9, 
   3.6221450275295315`*^9}, {3.6221452627969875`*^9, 3.6221453066904984`*^9}, 
   3.622147397782102*^9, {3.6221476260711594`*^9, 3.6221476760000153`*^9}, {
   3.6222226597430315`*^9, 3.6222226907718062`*^9}, 3.6222237358165793`*^9, {
   3.6229462117002583`*^9, 3.622946214679863*^9}, {3.622946910197201*^9, 
   3.6229469126152053`*^9}, {3.6229469463112645`*^9, 3.622946953877278*^9}, {
   3.623087577800655*^9, 3.623087617031711*^9}, {3.623087655020765*^9, 
   3.623087657580768*^9}, {3.6230882909408484`*^9, 3.623088373915965*^9}, {
   3.623088412107019*^9, 3.623088414477022*^9}, {3.7051918858900647`*^9, 
   3.705191890975355*^9}, 3.7051923708348017`*^9, 3.7051924243718643`*^9, {
   3.7051924580567904`*^9, 3.7051924615699916`*^9}, {3.715124191032341*^9, 
   3.7151242287580976`*^9}, 3.7165734914599705`*^9, {3.7165742175765023`*^9, 
   3.716574300193228*^9}, {3.7165743641778874`*^9, 3.7165743660499945`*^9}, {
   3.716574794404495*^9, 3.716574795246543*^9}, {3.7165793432276726`*^9, 
   3.7165793466968713`*^9}},
 Background->GrayLevel[0.85]],

Cell["", "Subsubsection",
 CellDingbat->None,
 CellChangeTimes->{3.4796643211106243`*^9, 3.4941724567488375`*^9}]
}, Closed]]
}, Closed]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"\t", 
  RowBox[{Cell[TextData[StyleBox["2:",
    FontFamily->"Arial",
    FontColor->RGBColor[1, 0, 0]]], "None"], "  ", 
   RowBox[{"\[Integral]", 
    RowBox[{
     SuperscriptBox[
      RowBox[{"(", 
       RowBox[{"d", "+", 
        RowBox[{"e", " ", "x"}]}], ")"}], "q"], " ", 
     SuperscriptBox[
      RowBox[{"(", 
       RowBox[{"a", "+", 
        RowBox[{"b", " ", 
         RowBox[{"Log", "[", 
          RowBox[{"c", " ", 
           SuperscriptBox["x", "n"]}], "]"}]}]}], ")"}], "p"], 
     RowBox[{"\[DifferentialD]", "x"}], "  ", 
     StyleBox["when",
      FontFamily->"Arial",
      FontWeight->"Plain"], 
     StyleBox["  ",
      FontFamily->"Arial",
      FontWeight->"Plain"], Cell[TextData[Cell[BoxData[
      RowBox[{
       RowBox[{"p", "<", 
        RowBox[{"-", "1"}]}], " ", "\[And]", " ", 
       RowBox[{"q", ">", "0"}]}]]]], "None"]}]}]}]}]], "Subsubtitle",
 CellDingbat->None,
 CellChangeTimes->{
  3.477935275784027*^9, {3.477935350060832*^9, 3.477935352384173*^9}, {
   3.477935393803731*^9, 3.477935400102789*^9}, {3.477935515378547*^9, 
   3.47793552034569*^9}, 3.478120029940968*^9, {3.479318860690858*^9, 
   3.47931886615872*^9}, {3.4794185033278093`*^9, 3.479418503918659*^9}, 
   3.4795122294117584`*^9, {3.479615913307893*^9, 3.4796159352794867`*^9}, 
   3.4796160386581373`*^9, 3.4796867204045024`*^9, {3.4928025699585147`*^9, 
   3.492802570130115*^9}, 3.492822274480175*^9, 3.492825822242408*^9, {
   3.4940970615585365`*^9, 3.494097062168537*^9}, {3.496441349250718*^9, 
   3.496441349830719*^9}, 3.4964414848609076`*^9, 3.496521708137803*^9, {
   3.4965218981240697`*^9, 3.49652189838407*^9}, 3.4965229070755*^9, 
   3.519247079685614*^9, {3.5193208582062006`*^9, 3.5193208612170057`*^9}, 
   3.5193325694253187`*^9, {3.5193422443984776`*^9, 3.5193422447260776`*^9}, 
   3.5193424488212357`*^9, {3.5193434708254333`*^9, 3.519343473103037*^9}, {
   3.5193435097631016`*^9, 3.51934353169674*^9}, {3.519345739319023*^9, 
   3.519345739599823*^9}, 3.5193462601259375`*^9, {3.5193475061060295`*^9, 
   3.5193475233908596`*^9}, {3.519351391880224*^9, 3.5193513931402254`*^9}, {
   3.519403773021052*^9, 3.5194037798564425`*^9}, 3.5194106793250647`*^9, {
   3.519537578341393*^9, 3.5195375792305946`*^9}, {3.5195376277778797`*^9, 
   3.51953767927357*^9}, {3.5197586260636144`*^9, 3.5197586260636144`*^9}, {
   3.51978053295651*^9, 3.519780542862528*^9}, {3.5197806526087203`*^9, 
   3.5197806657595434`*^9}, {3.5197807490168896`*^9, 3.5197807642581167`*^9}, 
   3.5197809004619555`*^9, {3.519782653514635*^9, 3.5197826623286505`*^9}, {
   3.5200207810164795`*^9, 3.520020785046485*^9}, {3.5213126833374643`*^9, 
   3.5213126833374643`*^9}, {3.521328235411002*^9, 3.521328235411002*^9}, {
   3.523315567893022*^9, 3.523315567893022*^9}, {3.5233157569332867`*^9, 
   3.5233157613032923`*^9}, {3.5323023198133526`*^9, 3.532302355723403*^9}, {
   3.5323026417638035`*^9, 3.5323026417638035`*^9}, {3.5323026980138817`*^9, 
   3.5323026980138817`*^9}, {3.532636287104328*^9, 3.532636287104328*^9}, {
   3.5330803686035347`*^9, 3.533080368863535*^9}, {3.533248909289961*^9, 
   3.5332489110299635`*^9}, {3.534962469565694*^9, 3.5349624910757236`*^9}, {
   3.5349625224057674`*^9, 3.534962522655768*^9}, {3.534965265519608*^9, 
   3.534965265519608*^9}, {3.5349668288168063`*^9, 3.5349668292668066`*^9}, {
   3.5349747358481646`*^9, 3.5349747358481646`*^9}, {3.534975457949176*^9, 
   3.534975457949176*^9}, {3.5368633963532934`*^9, 3.536863396571694*^9}, {
   3.541644322511304*^9, 3.5416443577513533`*^9}, {3.5416458269234104`*^9, 
   3.541645839633428*^9}, {3.5416460312236967`*^9, 3.541646031483697*^9}, 
   3.541646227783972*^9, {3.541647080335165*^9, 3.5416471077052035`*^9}, {
   3.541648997607849*^9, 3.5416489978278494`*^9}, 3.541649088407976*^9, {
   3.5417848711596775`*^9, 3.541784902429721*^9}, {3.541786145331461*^9, 
   3.5417861455914617`*^9}, {3.5417870037166634`*^9, 3.5417870039366636`*^9}, 
   3.5462979620242105`*^9, {3.546298264094633*^9, 3.546298265344635*^9}, {
   3.546299000235664*^9, 3.546299001505666*^9}, {3.546315119909564*^9, 
   3.5463151267659564`*^9}, {3.547227356319705*^9, 3.547227356319705*^9}, 
   3.547918559331044*^9, {3.547918610170952*^9, 3.5479186304411116`*^9}, 
   3.548537755517557*^9, 3.5485441629685287`*^9, 3.5485517520154133`*^9, {
   3.5488740727887154`*^9, 3.5488740727887154`*^9}, {3.548874206618903*^9, 
   3.548874206808903*^9}, 3.548877100795455*^9, 3.550596464087599*^9, {
   3.5505965767870445`*^9, 3.5505965767870445`*^9}, 3.5505966202465305`*^9, {
   3.5506039138305197`*^9, 3.55060391400453*^9}, {3.5506040039986773`*^9, 
   3.550604005776779*^9}, {3.5506178888272758`*^9, 3.5506178900273447`*^9}, {
   3.5507714128001575`*^9, 3.5507714579237385`*^9}, {3.5507720333616514`*^9, 
   3.550772050061607*^9}, {3.550772435487652*^9, 3.550772438125803*^9}, {
   3.550778448246562*^9, 3.5507784521717863`*^9}, 3.5507785692024803`*^9, 
   3.552150781232729*^9, {3.5705560802126346`*^9, 3.570556082012637*^9}, {
   3.570556146992728*^9, 3.570556154092738*^9}, {3.5705563282329817`*^9, 
   3.5705563282329817`*^9}, {3.570557244264264*^9, 3.5705572495342717`*^9}, {
   3.570557346584408*^9, 3.57055735570442*^9}, 3.5705588510865135`*^9, 
   3.570587045279332*^9, {3.570587100219409*^9, 3.570587100219409*^9}, {
   3.5705904018840313`*^9, 3.570590403414034*^9}, 3.6219070490415382`*^9, 
   3.621907123633805*^9, {3.621907403541815*^9, 3.621907403541815*^9}, {
   3.621908924926833*^9, 3.621908924926833*^9}, 3.6219788046742935`*^9, {
   3.716573134274541*^9, 3.716573196189082*^9}, {3.7165758926903133`*^9, 
   3.7165758929523287`*^9}, {3.716575936004791*^9, 3.7165759429361873`*^9}, 
   3.7166658491690197`*^9, 3.7461206943672028`*^9},
 FontSize->12,
 FontWeight->"Bold"],

Cell[TextData[{
 "Rule: If  ",
 Cell[BoxData[
  RowBox[{
   RowBox[{"p", "<", 
    RowBox[{"-", "1"}]}], " ", "\[And]", " ", 
   RowBox[{"q", ">", "0"}]}]]],
 ", then"
}], "Subsubsection",
 CellDingbat->"\[FilledSmallSquare]",
 CellChangeTimes->{{3.4794189093216*^9, 3.479418932274605*^9}, {
   3.479418981395237*^9, 3.4794189822564754`*^9}, {3.4794192068193808`*^9, 
   3.4794192077607346`*^9}, 3.479420089138093*^9, {3.479420130978256*^9, 
   3.4794201410627565`*^9}, {3.479420560345656*^9, 3.479420578171288*^9}, {
   3.479420683943381*^9, 3.4794206847645617`*^9}, {3.4794210347678413`*^9, 
   3.4794210503903055`*^9}, 3.4803613662913427`*^9, {3.480361406058525*^9, 
   3.48036141974821*^9}, {3.4803614672865667`*^9, 3.480361474717252*^9}, 
   3.48070534977779*^9, {3.4928296953212276`*^9, 3.492829707041244*^9}, 
   3.4941724084687696`*^9, 3.4941724567488375`*^9, 3.494172783029294*^9, {
   3.495162076203082*^9, 3.495162102707529*^9}, {3.495162264932214*^9, 
   3.495162277318636*^9}, {3.4951637747120676`*^9, 3.495163775320469*^9}, {
   3.4951642488437004`*^9, 3.4951642509653044`*^9}, {3.4952359429371166`*^9, 
   3.495235964997147*^9}, {3.5507724578719325`*^9, 3.5507724578719325`*^9}, {
   3.570555918122408*^9, 3.57055591976241*^9}, {3.5705561643127527`*^9, 
   3.5705561643127527`*^9}, {3.570556330612985*^9, 3.570556330612985*^9}, {
   3.570557376284449*^9, 3.570557376284449*^9}, {3.5705871010694103`*^9, 
   3.5705871010694103`*^9}, {3.6219074042538557`*^9, 
   3.6219074042538557`*^9}, {3.6219089272949686`*^9, 
   3.6219089272949686`*^9}, {3.716576124447569*^9, 3.716576124447569*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{"\[Integral]", 
   RowBox[{
    SuperscriptBox[
     RowBox[{"(", 
      RowBox[{"d", "+", 
       RowBox[{"e", " ", "x"}]}], ")"}], "q"], " ", 
    SuperscriptBox[
     RowBox[{"(", 
      RowBox[{"a", "+", 
       RowBox[{"b", " ", 
        RowBox[{"Log", "[", 
         RowBox[{"c", " ", 
          SuperscriptBox["x", "n"]}], "]"}]}]}], ")"}], "p"], 
    RowBox[{"\[DifferentialD]", 
     RowBox[{"x", "  ", "\[LongRightArrow]", "  ", "\[IndentingNewLine]", 
      FractionBox[
       RowBox[{"x", 
        SuperscriptBox[
         RowBox[{"(", 
          RowBox[{"d", "+", 
           RowBox[{"e", " ", "x"}]}], ")"}], "q"], " ", 
        SuperscriptBox[
         RowBox[{"(", 
          RowBox[{"a", "+", 
           RowBox[{"b", " ", 
            RowBox[{"Log", "[", 
             RowBox[{"c", " ", 
              SuperscriptBox["x", "n"]}], "]"}]}]}], ")"}], 
         RowBox[{"p", "+", "1"}]]}], 
       RowBox[{"b", " ", "n", " ", 
        RowBox[{"(", 
         RowBox[{"p", "+", "1"}], ")"}]}]]}]}]}]}], "+", 
  RowBox[{
   FractionBox[
    RowBox[{"d", " ", "q"}], 
    RowBox[{"b", " ", "n", " ", 
     RowBox[{"(", 
      RowBox[{"p", "+", "1"}], ")"}]}]], 
   RowBox[{"\[Integral]", 
    RowBox[{
     SuperscriptBox[
      RowBox[{"(", 
       RowBox[{"d", "+", 
        RowBox[{"e", " ", "x"}]}], ")"}], 
      RowBox[{"q", "-", "1"}]], " ", 
     SuperscriptBox[
      RowBox[{"(", 
       RowBox[{"a", "+", 
        RowBox[{"b", " ", 
         RowBox[{"Log", "[", 
          RowBox[{"c", " ", 
           SuperscriptBox["x", "n"]}], "]"}]}]}], ")"}], 
      RowBox[{"p", "+", "1"}]], 
     RowBox[{"\[DifferentialD]", "x"}]}]}]}], "-", 
  RowBox[{
   FractionBox[
    RowBox[{"q", "+", "1"}], 
    RowBox[{"b", " ", "n", 
     RowBox[{"(", 
      RowBox[{"p", "+", "1"}], ")"}]}]], 
   RowBox[{"\[Integral]", 
    RowBox[{
     SuperscriptBox[
      RowBox[{"(", 
       RowBox[{"d", "+", 
        RowBox[{"e", " ", "x"}]}], ")"}], "q"], " ", 
     SuperscriptBox[
      RowBox[{"(", 
       RowBox[{"a", "+", 
        RowBox[{"b", " ", 
         RowBox[{"Log", "[", 
          RowBox[{"c", " ", 
           SuperscriptBox["x", "n"]}], "]"}]}]}], ")"}], 
      RowBox[{"p", "+", "1"}]], 
     RowBox[{"\[DifferentialD]", "x"}]}]}]}]}]], "Subsubtitle",
 CellDingbat->None,
 CellChangeTimes->{{3.4796579732027807`*^9, 3.479658002474872*^9}, {
   3.4796580599975853`*^9, 3.4796580609489536`*^9}, {3.479658295195784*^9, 
   3.47965829684816*^9}, 3.4796611938939075`*^9, 3.4796613924794593`*^9, {
   3.479661443342597*^9, 3.479661446647349*^9}, {3.479661576554146*^9, 
   3.479661589302477*^9}, 3.479661847553824*^9, {3.4796622294729967`*^9, 
   3.4796622450654173`*^9}, {3.479686720424531*^9, 3.4796867204345455`*^9}, {
   3.4796874646646957`*^9, 3.4796874745589232`*^9}, {3.492826573513727*^9, 
   3.492826578630536*^9}, {3.4928267070863624`*^9, 3.492826707460763*^9}, 
   3.4928267903497095`*^9, {3.492829799151373*^9, 3.4928299617216005`*^9}, {
   3.4940972077187414`*^9, 3.4940972347887793`*^9}, {3.49409966398218*^9, 
   3.494099664952181*^9}, {3.4940997156722527`*^9, 3.494099716112253*^9}, 
   3.4941724567488375`*^9, {3.4941727384192314`*^9, 3.494172760679263*^9}, {
   3.495161485476845*^9, 3.4951615041032777`*^9}, {3.495161845931078*^9, 
   3.4951618787379355`*^9}, {3.495163638398227*^9, 3.495163646853442*^9}, 
   3.49516370254554*^9, {3.495164038477331*^9, 3.4951640737177925`*^9}, {
   3.495236000747197*^9, 3.4952360315472403`*^9}, 3.495236073317299*^9, {
   3.5507720032309284`*^9, 3.550772013538518*^9}, {3.5507785721206474`*^9, 
   3.5507785960200143`*^9}, {3.550778672824407*^9, 3.550778833354589*^9}, {
   3.550778866115463*^9, 3.550778962864997*^9}, 3.550779011989806*^9, {
   3.55077907044715*^9, 3.550779081004754*^9}, {3.550779614990296*^9, 
   3.550779617090416*^9}, {3.570555545071885*^9, 3.570555547161888*^9}, 
   3.5705558117022586`*^9, 3.570587101729411*^9, 3.570587133609456*^9, {
   3.5705871932095394`*^9, 3.5705871942595406`*^9}, {3.5705895119327855`*^9, 
   3.5705895343428173`*^9}, {3.5705895668528624`*^9, 
   3.5705895961729035`*^9}, {3.5705896506429796`*^9, 3.5705896545629854`*^9}, 
   3.570589704053055*^9, {3.570589999223468*^9, 3.5705900476335354`*^9}, 
   3.6219070498655853`*^9, {3.6219071241048317`*^9, 3.621907125700923*^9}, {
   3.621907191997715*^9, 3.621907193156781*^9}, 3.6219072586235256`*^9, 
   3.621907404998898*^9, {3.6219089307651668`*^9, 3.621908970738453*^9}, {
   3.6219090091606507`*^9, 3.621909039864407*^9}, {3.716573134507554*^9, 
   3.716573196208083*^9}, {3.716576144260702*^9, 3.716576235295909*^9}, 
   3.7165767754008017`*^9},
 TextAlignment->Center,
 FontSize->12,
 FontWeight->"Bold"],

Cell["Program code:", "Subsubsection",
 CellDingbat->"\[FilledSmallSquare]",
 CellChangeTimes->{{3.4794189093216*^9, 3.479418932274605*^9}, {
   3.479418981395237*^9, 3.4794189822564754`*^9}, {3.4794192068193808`*^9, 
   3.4794192077607346`*^9}, 3.479420089138093*^9, {3.479420130978256*^9, 
   3.4794201410627565`*^9}, {3.479420560345656*^9, 3.479420578171288*^9}, {
   3.479420683943381*^9, 3.4794206847645617`*^9}, {3.4794210347678413`*^9, 
   3.4794210503903055`*^9}, 3.4803613662913427`*^9, {3.480361406058525*^9, 
   3.48036141974821*^9}, {3.4803614672865667`*^9, 3.480361474717252*^9}, 
   3.4807050675119123`*^9, {3.492804314166378*^9, 3.4928043441496305`*^9}, {
   3.4928044532166224`*^9, 3.492804453513023*^9}, {3.492805162266266*^9, 
   3.492805165713872*^9}, 3.4941724567488375`*^9}],

Cell[BoxData[
 RowBox[{
  RowBox[{"Int", "[", 
   RowBox[{
    RowBox[{
     RowBox[{
      RowBox[{"(", 
       RowBox[{"d_", "+", 
        RowBox[{"e_.", "*", "x_"}]}], ")"}], "^", "q_."}], "*", 
     RowBox[{
      RowBox[{"(", 
       RowBox[{"a_.", "+", 
        RowBox[{"b_.", "*", 
         RowBox[{"Log", "[", 
          RowBox[{"c_.", "*", 
           RowBox[{"x_", "^", "n_."}]}], "]"}]}]}], ")"}], "^", "p_"}]}], ",",
     "x_Symbol"}], "]"}], " ", ":=", "\n", "  ", 
  RowBox[{
   RowBox[{
    RowBox[{"x", "*", 
     RowBox[{
      RowBox[{"(", 
       RowBox[{"d", "+", 
        RowBox[{"e", "*", "x"}]}], ")"}], "^", "q"}], "*", 
     RowBox[{
      RowBox[{
       RowBox[{"(", 
        RowBox[{"a", "+", 
         RowBox[{"b", "*", 
          RowBox[{"Log", "[", 
           RowBox[{"c", "*", 
            RowBox[{"x", "^", "n"}]}], "]"}]}]}], ")"}], "^", 
       RowBox[{"(", 
        RowBox[{"p", "+", "1"}], ")"}]}], "/", 
      RowBox[{"(", 
       RowBox[{"b", "*", "n", "*", 
        RowBox[{"(", 
         RowBox[{"p", "+", "1"}], ")"}]}], ")"}]}]}], " ", "+", " ", 
    "\[IndentingNewLine]", "  ", 
    RowBox[{"d", "*", 
     RowBox[{"q", "/", 
      RowBox[{"(", 
       RowBox[{"b", "*", "n", "*", 
        RowBox[{"(", 
         RowBox[{"p", "+", "1"}], ")"}]}], ")"}]}], "*", 
     RowBox[{"Int", "[", 
      RowBox[{
       RowBox[{
        RowBox[{
         RowBox[{"(", 
          RowBox[{"d", "+", 
           RowBox[{"e", "*", "x"}]}], ")"}], "^", 
         RowBox[{"(", 
          RowBox[{"q", "-", "1"}], ")"}]}], "*", 
        RowBox[{
         RowBox[{"(", 
          RowBox[{"a", "+", 
           RowBox[{"b", "*", 
            RowBox[{"Log", "[", 
             RowBox[{"c", "*", 
              RowBox[{"x", "^", "n"}]}], "]"}]}]}], ")"}], "^", 
         RowBox[{"(", 
          RowBox[{"p", "+", "1"}], ")"}]}]}], ",", "x"}], "]"}]}], " ", "-", 
    " ", "\n", "  ", 
    RowBox[{
     RowBox[{
      RowBox[{"(", 
       RowBox[{"q", "+", "1"}], ")"}], "/", 
      RowBox[{"(", 
       RowBox[{"b", "*", "n", "*", 
        RowBox[{"(", 
         RowBox[{"p", "+", "1"}], ")"}]}], ")"}]}], "*", 
     RowBox[{"Int", "[", 
      RowBox[{
       RowBox[{
        RowBox[{
         RowBox[{"(", 
          RowBox[{"d", "+", 
           RowBox[{"e", "*", "x"}]}], ")"}], "^", "q"}], "*", 
        RowBox[{
         RowBox[{"(", 
          RowBox[{"a", "+", 
           RowBox[{"b", "*", 
            RowBox[{"Log", "[", 
             RowBox[{"c", "*", 
              RowBox[{"x", "^", "n"}]}], "]"}]}]}], ")"}], "^", 
         RowBox[{"(", 
          RowBox[{"p", "+", "1"}], ")"}]}]}], ",", "x"}], "]"}]}]}], " ", "/;",
    "\n", 
   RowBox[{
    RowBox[{"FreeQ", "[", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{"a", ",", "b", ",", "c", ",", "d", ",", "e", ",", "n"}], "}"}],
       ",", "x"}], "]"}], " ", "&&", " ", 
    RowBox[{"LtQ", "[", 
     RowBox[{"p", ",", 
      RowBox[{"-", "1"}]}], "]"}], " ", "&&", " ", 
    RowBox[{"GtQ", "[", 
     RowBox[{"q", ",", "0"}], "]"}]}]}]}]], "Code",
 CellChangeTimes->{{3.494097279728842*^9, 3.494097309778884*^9}, {
   3.494099665582182*^9, 3.4940996672021847`*^9}, {3.4940997193022575`*^9, 
   3.494099719662258*^9}, 3.4941724567488375`*^9, 3.494172717389202*^9, 
   3.495161451843186*^9, 3.4951616675135646`*^9, 3.495163619631394*^9, 
   3.495164018025695*^9, 3.4952359113970723`*^9, {3.548695289708968*^9, 
   3.54869529120897*^9}, {3.5487331621223555`*^9, 3.5487331652165327`*^9}, {
   3.54873330941578*^9, 3.5487333130069857`*^9}, {3.550772463150234*^9, 
   3.5507724658833904`*^9}, {3.5507794912002153`*^9, 3.5507795096392703`*^9}, 
   3.550779541012065*^9, 3.5705559005623827`*^9, {3.5705559529524565`*^9, 
   3.57055595518246*^9}, {3.5705562499628725`*^9, 3.5705562618728886`*^9}, {
   3.5705573652744336`*^9, 3.570557367064436*^9}, {3.5705872570196285`*^9, 
   3.5705872575096292`*^9}, 3.5705873197897167`*^9, 3.570587399919829*^9, 
   3.5705901618336954`*^9, 3.621907309713448*^9, 3.6219075170953093`*^9, {
   3.6219084367599115`*^9, 3.621908437479953*^9}, {3.621909111927529*^9, 
   3.6219091236702003`*^9}, {3.7051918973557205`*^9, 3.7051919151237364`*^9}, 
   3.7051924254189243`*^9, 3.716573491474972*^9, {3.71657609632096*^9, 
   3.716576114779016*^9}, {3.7165768976607943`*^9, 3.716576926570448*^9}},
 Background->GrayLevel[0.85]],

Cell["", "Subsubsection",
 CellDingbat->None,
 CellChangeTimes->{3.4796643211106243`*^9, 3.4941724567488375`*^9}]
}, Closed]]
}, Closed]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{Cell[TextData[StyleBox["4.",
   FontFamily->"Arial"]], "None"], "  ", 
  RowBox[{"\[Integral]", 
   RowBox[{
    SuperscriptBox[
     RowBox[{"(", 
      RowBox[{"d", "+", 
       RowBox[{"e", " ", 
        SuperscriptBox["x", "2"]}]}], ")"}], "q"], " ", 
    RowBox[{"(", 
     RowBox[{"a", "+", 
      RowBox[{"b", " ", 
       RowBox[{"Log", "[", 
        RowBox[{"c", " ", 
         SuperscriptBox["x", "n"]}], "]"}]}]}], ")"}], 
    RowBox[{"\[DifferentialD]", "x"}]}]}]}]], "Subsubtitle",
 CellDingbat->None,
 CellChangeTimes->{
  3.477935275784027*^9, {3.477935350060832*^9, 3.477935352384173*^9}, {
   3.477935393803731*^9, 3.477935400102789*^9}, {3.477935515378547*^9, 
   3.47793552034569*^9}, 3.478120029940968*^9, {3.479318860690858*^9, 
   3.47931886615872*^9}, {3.4794185033278093`*^9, 3.479418503918659*^9}, 
   3.4795122294117584`*^9, {3.479615913307893*^9, 3.4796159352794867`*^9}, 
   3.4796160386581373`*^9, 3.4796867204045024`*^9, {3.4928025699585147`*^9, 
   3.492802570130115*^9}, 3.492822274480175*^9, 3.492825822242408*^9, {
   3.4940970615585365`*^9, 3.494097062168537*^9}, {3.496441349250718*^9, 
   3.496441349830719*^9}, 3.4964414848609076`*^9, 3.496521708137803*^9, {
   3.4965218981240697`*^9, 3.49652189838407*^9}, 3.4965229070755*^9, 
   3.519247079685614*^9, {3.5193208582062006`*^9, 3.5193208612170057`*^9}, 
   3.5193325694253187`*^9, {3.5193415004828687`*^9, 3.5193415113404875`*^9}, {
   3.5193513965602303`*^9, 3.519351397420232*^9}, {3.5194037839416766`*^9, 
   3.5194037847117205`*^9}, 3.52105258275843*^9, 3.5210531741726685`*^9, {
   3.521057461672199*^9, 3.5210574760242243`*^9}, {3.521059881564049*^9, 
   3.521059886088057*^9}, {3.5213902158895197`*^9, 3.521390217543123*^9}, {
   3.521390827878595*^9, 3.521390829376197*^9}, {3.5214688792561245`*^9, 
   3.521468879443325*^9}, {3.523320201951167*^9, 3.523320202247567*^9}, {
   3.5288596764894824`*^9, 3.5288596768094826`*^9}, {3.529196266260353*^9, 
   3.5291962665099535`*^9}, {3.5291997050223927`*^9, 
   3.5291997052563934`*^9}, {3.529201346457276*^9, 3.529201347252877*^9}, {
   3.529285041073242*^9, 3.5292850412632427`*^9}, {3.529285215443486*^9, 
   3.529285215443486*^9}, {3.5295115356999426`*^9, 3.5295115433443794`*^9}, {
   3.529521412127842*^9, 3.529521414647986*^9}, {3.529529429975619*^9, 
   3.529529432955224*^9}, 3.5340074894011116`*^9, 3.5415537711400824`*^9, {
   3.5415538454742126`*^9, 3.54155384951462*^9}, {3.5417297197063265`*^9, 
   3.5417297252443366`*^9}, {3.546297494083555*^9, 3.5462974982435613`*^9}, {
   3.5462989134855423`*^9, 3.5462989153655453`*^9}, 3.548544146508506*^9, 
   3.5488738855784535`*^9, {3.5505953688729563`*^9, 3.5505953726861744`*^9}, 
   3.550771858531652*^9, {3.5507798163368125`*^9, 3.5507798167628365`*^9}, {
   3.550810430436808*^9, 3.550810430782828*^9}, {3.5513085224509587`*^9, 
   3.5513085267722063`*^9}, {3.5513263051951714`*^9, 
   3.5513263057772045`*^9}, {3.5521507775979223`*^9, 
   3.5521507793139253`*^9}, {3.5521518343281784`*^9, 
   3.5521518354513807`*^9}, {3.570556116362685*^9, 3.570556116362685*^9}, {
   3.570556384903061*^9, 3.5705564067030916`*^9}, {3.5705565154232435`*^9, 
   3.570556515653244*^9}, 3.570558825556478*^9, {3.5705869481991963`*^9, 
   3.5705869533292036`*^9}, 3.621900804633379*^9, 3.6219070314275312`*^9, {
   3.6219073832556543`*^9, 3.6219073832556543`*^9}, 3.6219787973808765`*^9, {
   3.6221642508690434`*^9, 3.622164251046054*^9}, {3.6226631569367566`*^9, 
   3.622663157136757*^9}, {3.7165730284444876`*^9, 3.7165730587152195`*^9}, {
   3.716573095366316*^9, 3.7165730972684245`*^9}, 3.716665843148676*^9, {
   3.7166659051992245`*^9, 3.716665905415237*^9}, {3.7179693557764707`*^9, 
   3.717969356068487*^9}, {3.717979867838641*^9, 3.7179798870217385`*^9}, {
   3.7179800641588707`*^9, 3.717980064341881*^9}, {3.7179991657722178`*^9, 
   3.717999166116237*^9}, {3.7239451801431007`*^9, 3.7239452100008087`*^9}, {
   3.724186802769092*^9, 3.7241868029390926`*^9}, {3.7242973517189045`*^9, 
   3.724297351912916*^9}, 3.746120694878232*^9},
 FontSize->12,
 FontWeight->"Bold"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"\t", 
  RowBox[{Cell[TextData[StyleBox["1:",
    FontFamily->"Arial",
    FontColor->RGBColor[1, 0, 0]]], "None"], "  ", 
   RowBox[{"\[Integral]", 
    RowBox[{
     SuperscriptBox[
      RowBox[{"(", 
       RowBox[{"d", "+", 
        RowBox[{"e", " ", 
         SuperscriptBox["x", "2"]}]}], ")"}], "q"], " ", 
     RowBox[{"(", 
      RowBox[{"a", "+", 
       RowBox[{"b", " ", 
        RowBox[{"Log", "[", 
         RowBox[{"c", " ", 
          SuperscriptBox["x", "n"]}], "]"}]}]}], ")"}], 
     RowBox[{"\[DifferentialD]", "x"}], "  ", 
     StyleBox["when",
      FontFamily->"Arial",
      FontWeight->"Plain"], 
     StyleBox["  ",
      FontFamily->"Arial",
      FontWeight->"Plain"], Cell[TextData[Cell[BoxData[
      RowBox[{"q", ">", "0"}]]]], "None"]}]}]}]}]], "Subsubtitle",
 CellDingbat->None,
 CellChangeTimes->{
  3.477935275784027*^9, {3.477935350060832*^9, 3.477935352384173*^9}, {
   3.477935393803731*^9, 3.477935400102789*^9}, {3.477935515378547*^9, 
   3.47793552034569*^9}, 3.478120029940968*^9, {3.479318860690858*^9, 
   3.47931886615872*^9}, {3.4794185033278093`*^9, 3.479418503918659*^9}, 
   3.4795122294117584`*^9, {3.479615913307893*^9, 3.4796159352794867`*^9}, 
   3.4796160386581373`*^9, 3.4796867204045024`*^9, {3.4928025699585147`*^9, 
   3.492802570130115*^9}, 3.492822274480175*^9, 3.492825822242408*^9, {
   3.4940970615585365`*^9, 3.494097062168537*^9}, {3.496441349250718*^9, 
   3.496441349830719*^9}, 3.4964414848609076`*^9, 3.496521708137803*^9, {
   3.4965218981240697`*^9, 3.49652189838407*^9}, 3.4965229070755*^9, 
   3.519247079685614*^9, {3.5193208582062006`*^9, 3.5193208612170057`*^9}, 
   3.5193325694253187`*^9, {3.5193422443984776`*^9, 3.5193422447260776`*^9}, 
   3.5193424488212357`*^9, {3.5193434708254333`*^9, 3.519343473103037*^9}, {
   3.5193435097631016`*^9, 3.51934353169674*^9}, {3.519345739319023*^9, 
   3.519345739599823*^9}, 3.5193462601259375`*^9, {3.5193475061060295`*^9, 
   3.5193475233908596`*^9}, {3.519351391880224*^9, 3.5193513931402254`*^9}, {
   3.519403773021052*^9, 3.5194037798564425`*^9}, 3.5194106793250647`*^9, {
   3.519537578341393*^9, 3.5195375792305946`*^9}, {3.5195376277778797`*^9, 
   3.51953767927357*^9}, {3.5197586260636144`*^9, 3.5197586260636144`*^9}, {
   3.51978053295651*^9, 3.519780542862528*^9}, {3.5197806526087203`*^9, 
   3.5197806657595434`*^9}, {3.5197807490168896`*^9, 3.5197807642581167`*^9}, 
   3.5197809004619555`*^9, {3.519782653514635*^9, 3.5197826623286505`*^9}, {
   3.5200207810164795`*^9, 3.520020785046485*^9}, {3.5213126833374643`*^9, 
   3.5213126833374643`*^9}, {3.521328235411002*^9, 3.521328235411002*^9}, {
   3.523315567893022*^9, 3.523315567893022*^9}, {3.5233157569332867`*^9, 
   3.5233157613032923`*^9}, {3.5323023198133526`*^9, 3.532302355723403*^9}, {
   3.5323026417638035`*^9, 3.5323026417638035`*^9}, {3.5323026980138817`*^9, 
   3.5323026980138817`*^9}, {3.532636287104328*^9, 3.532636287104328*^9}, {
   3.5330803686035347`*^9, 3.533080368863535*^9}, {3.533248909289961*^9, 
   3.5332489110299635`*^9}, {3.534962469565694*^9, 3.5349624910757236`*^9}, {
   3.5349625224057674`*^9, 3.534962522655768*^9}, {3.534965265519608*^9, 
   3.534965265519608*^9}, {3.5349668288168063`*^9, 3.5349668292668066`*^9}, {
   3.5349747358481646`*^9, 3.5349747358481646`*^9}, {3.534975457949176*^9, 
   3.534975457949176*^9}, {3.5368633963532934`*^9, 3.536863396571694*^9}, {
   3.541644322511304*^9, 3.5416443577513533`*^9}, {3.5416458269234104`*^9, 
   3.541645839633428*^9}, {3.5416460312236967`*^9, 3.541646031483697*^9}, 
   3.541646227783972*^9, {3.541647080335165*^9, 3.5416471077052035`*^9}, {
   3.541648997607849*^9, 3.5416489978278494`*^9}, 3.541649088407976*^9, {
   3.5417848711596775`*^9, 3.541784902429721*^9}, {3.541786145331461*^9, 
   3.5417861455914617`*^9}, {3.5417870037166634`*^9, 3.5417870039366636`*^9}, 
   3.5462979620242105`*^9, {3.546298264094633*^9, 3.546298265344635*^9}, {
   3.546299000235664*^9, 3.546299001505666*^9}, {3.546315119909564*^9, 
   3.5463151267659564`*^9}, {3.547227356319705*^9, 3.547227356319705*^9}, 
   3.547918559331044*^9, {3.547918610170952*^9, 3.5479186304411116`*^9}, 
   3.548537755517557*^9, 3.5485441629685287`*^9, 3.5485517520154133`*^9, {
   3.5488740727887154`*^9, 3.5488740727887154`*^9}, {3.548874206618903*^9, 
   3.548874206808903*^9}, 3.548877100795455*^9, 3.550596464087599*^9, {
   3.5505965767870445`*^9, 3.5505965767870445`*^9}, 3.5505966202465305`*^9, {
   3.5506039138305197`*^9, 3.55060391400453*^9}, {3.5506040039986773`*^9, 
   3.550604005776779*^9}, {3.5506178888272758`*^9, 3.5506178900273447`*^9}, {
   3.5507714128001575`*^9, 3.5507714579237385`*^9}, 3.5507715736503572`*^9, {
   3.550771605757194*^9, 3.550771605757194*^9}, {3.5507784779162593`*^9, 
   3.550778485089669*^9}, {3.5512945755817485`*^9, 3.5512945774348545`*^9}, {
   3.5512950851568947`*^9, 3.551295087206012*^9}, {3.5512951503876257`*^9, 
   3.5512951503876257`*^9}, 3.5521508023707657`*^9, 3.570556429483124*^9, 
   3.570556813913662*^9, {3.570556871323742*^9, 3.5705568726537437`*^9}, {
   3.5705589342766304`*^9, 3.5705589351566315`*^9}, {3.5705726285190425`*^9, 
   3.5705726598690863`*^9}, {3.5705727092291555`*^9, 3.57057271224916*^9}, {
   3.570590818264614*^9, 3.570590830644632*^9}, {3.5705909646248198`*^9, 
   3.5705909676948233`*^9}, {3.5706259368541703`*^9, 
   3.5706259368541703`*^9}, {3.5706261207628937`*^9, 3.5706261259733024`*^9}, 
   3.6219635347757335`*^9, {3.6219636066848464`*^9, 3.6219636066848464`*^9}, 
   3.621963707855633*^9, {3.6219639063569865`*^9, 3.6219639063569865`*^9}, 
   3.621963999584319*^9, {3.621964297837378*^9, 3.621964332188343*^9}, 
   3.621978810333617*^9, {3.702790664787342*^9, 3.702790669151592*^9}, {
   3.702791728371044*^9, 3.702791752929449*^9}, {3.70279180505943*^9, 
   3.7027918059684825`*^9}, {3.702792310843214*^9, 3.7027923216488323`*^9}, {
   3.716146180617201*^9, 3.716146180988222*^9}, 3.716146268281215*^9, 
   3.716147479832512*^9, {3.7161478815074863`*^9, 3.7161478827545576`*^9}, {
   3.716148001980377*^9, 3.7161480022213907`*^9}, {3.7161487310220757`*^9, 
   3.7161487521682854`*^9}, {3.717089552397103*^9, 3.717089555190508*^9}, {
   3.7170897080711775`*^9, 3.7170897080711775`*^9}, 3.7170897786372595`*^9, {
   3.7170898316912937`*^9, 3.717089849503313*^9}, {3.7170903615068755`*^9, 
   3.717090366046135*^9}, {3.7170908333901424`*^9, 3.717090837000349*^9}, {
   3.7170933189428363`*^9, 3.7170933815839467`*^9}, 3.717093582645501*^9, {
   3.7170938977690077`*^9, 3.7170939070062246`*^9}, {3.7170968317616477`*^9, 
   3.7170968334776506`*^9}, {3.7171025150267463`*^9, 3.7171025216275578`*^9}, 
   3.717102558113423*^9, {3.717631877768054*^9, 3.717631877998067*^9}, {
   3.717638713072011*^9, 3.7176387132230196`*^9}, {3.7177017897031126`*^9, 
   3.717701789899124*^9}, {3.7177352608576655`*^9, 3.7177352611366816`*^9}, {
   3.717819826023097*^9, 3.7178198262431097`*^9}, {3.7178832164929333`*^9, 
   3.71788324510557*^9}, {3.7178833260191975`*^9, 3.7178833586220627`*^9}, {
   3.717883444648983*^9, 3.717883468831366*^9}, {3.7178849177682405`*^9, 
   3.717884926823758*^9}, {3.7178849924715133`*^9, 3.7178849924715133`*^9}, {
   3.7178850271264954`*^9, 3.7178850321787844`*^9}, {3.71788576640978*^9, 
   3.717885777916438*^9}, {3.7178862048408566`*^9, 3.717886205019867*^9}, 
   3.7179642461222153`*^9, {3.7179642934709234`*^9, 3.717964295634047*^9}, {
   3.717964345653908*^9, 3.7179643459389243`*^9}, {3.717964716630127*^9, 
   3.717964717691187*^9}, {3.7179647846400166`*^9, 3.7179647851190443`*^9}, {
   3.7179648570291567`*^9, 3.7179648572351685`*^9}, {3.71796899298572*^9, 
   3.71796899839703*^9}, {3.7179798439062724`*^9, 3.717979845644372*^9}, {
   3.7239452586235895`*^9, 3.7239452874052353`*^9}, {3.723945549091203*^9, 
   3.7239455493002152`*^9}, 3.7461206953572598`*^9},
 FontSize->12,
 FontWeight->"Bold"],

Cell[TextData[{
 "Rule: If  ",
 Cell[BoxData[
  RowBox[{"q", ">", "0"}]]],
 ", then"
}], "Subsubsection",
 CellDingbat->"\[FilledSmallSquare]",
 CellChangeTimes->{{3.4794189093216*^9, 3.479418932274605*^9}, {
   3.479418981395237*^9, 3.4794189822564754`*^9}, {3.4794192068193808`*^9, 
   3.4794192077607346`*^9}, 3.479420089138093*^9, {3.479420130978256*^9, 
   3.4794201410627565`*^9}, {3.479420560345656*^9, 3.479420578171288*^9}, {
   3.479420683943381*^9, 3.4794206847645617`*^9}, {3.4794210347678413`*^9, 
   3.4794210503903055`*^9}, 3.4803613662913427`*^9, {3.480361406058525*^9, 
   3.48036141974821*^9}, {3.4803614672865667`*^9, 3.480361474717252*^9}, 
   3.48070534977779*^9, {3.4928296953212276`*^9, 3.492829707041244*^9}, 
   3.4941724084687696`*^9, 3.4941724567488375`*^9, 3.494172783029294*^9, {
   3.495162076203082*^9, 3.495162102707529*^9}, {3.495162264932214*^9, 
   3.495162277318636*^9}, {3.4951624969202213`*^9, 3.495162512208248*^9}, {
   3.4951627568718786`*^9, 3.4951627903339376`*^9}, {3.5507715824428606`*^9, 
   3.5507715974747205`*^9}, {3.551295058972397*^9, 3.5512950662198114`*^9}, {
   3.5706259391161747`*^9, 3.5706259391161747`*^9}, {3.5706261448181353`*^9, 
   3.5706261448181353`*^9}, {3.621963609569011*^9, 3.621963609569011*^9}, {
   3.621964345495104*^9, 3.621964345495104*^9}, {3.7027917306691756`*^9, 
   3.7027917537684965`*^9}, {3.7027918067845287`*^9, 3.702791806785529*^9}, {
   3.7027923275021667`*^9, 3.7027923275021667`*^9}, {3.7161478893629355`*^9, 
   3.7161478893629355`*^9}, {3.7161487602327466`*^9, 
   3.7161487602327466`*^9}, {3.7170897093035793`*^9, 
   3.7170897093035793`*^9}, {3.717089858854848*^9, 3.717089858854848*^9}, {
   3.7170904424085026`*^9, 3.7170904424085026`*^9}, {3.7170939135114355`*^9, 
   3.7170939135114355`*^9}, {3.7178835901923075`*^9, 
   3.7178835901923075`*^9}, {3.7178849988128757`*^9, 
   3.7178849988128757`*^9}, {3.71788518385246*^9, 3.7178851865096116`*^9}, {
   3.7178857825447025`*^9, 3.7178857825447025`*^9}, {3.7179643317771144`*^9, 
   3.7179643317771144`*^9}, {3.7179648190979877`*^9, 
   3.7179648195330124`*^9}, {3.71796900363933*^9, 3.7179690184511766`*^9}, {
   3.723945407628112*^9, 3.7239454126904016`*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{"\[Integral]", 
   RowBox[{
    SuperscriptBox[
     RowBox[{"(", 
      RowBox[{"d", "+", 
       RowBox[{"e", " ", 
        SuperscriptBox["x", "2"]}]}], ")"}], "q"], " ", 
    RowBox[{"(", 
     RowBox[{"a", "+", 
      RowBox[{"b", " ", 
       RowBox[{"Log", "[", 
        RowBox[{"c", " ", 
         SuperscriptBox["x", "n"]}], "]"}]}]}], ")"}], 
    RowBox[{"\[DifferentialD]", 
     RowBox[{"x", "  ", "\[LongRightArrow]", "  ", 
      FractionBox[
       RowBox[{"x", " ", 
        SuperscriptBox[
         RowBox[{"(", 
          RowBox[{"d", "+", 
           RowBox[{"e", " ", 
            SuperscriptBox["x", "2"]}]}], ")"}], "q"], " ", 
        RowBox[{"(", 
         RowBox[{"a", "+", 
          RowBox[{"b", " ", 
           RowBox[{"Log", "[", 
            RowBox[{"c", " ", 
             SuperscriptBox["x", "n"]}], "]"}]}]}], ")"}]}], 
       RowBox[{
        RowBox[{"2", " ", "q"}], "+", "1"}]]}]}]}]}], "-", 
  RowBox[{
   FractionBox[
    RowBox[{"b", " ", "n"}], 
    RowBox[{
     RowBox[{"2", " ", "q"}], "+", "1"}]], " ", 
   RowBox[{"\[Integral]", 
    RowBox[{
     SuperscriptBox[
      RowBox[{"(", 
       RowBox[{"d", "+", 
        RowBox[{"e", " ", 
         SuperscriptBox["x", "2"]}]}], ")"}], "q"], 
     RowBox[{"\[DifferentialD]", "x"}]}]}]}], "+", 
  RowBox[{
   FractionBox[
    RowBox[{"2", " ", "d", " ", "q"}], 
    RowBox[{
     RowBox[{"2", " ", "q"}], "+", "1"}]], " ", 
   RowBox[{"\[Integral]", 
    RowBox[{
     SuperscriptBox[
      RowBox[{"(", 
       RowBox[{"d", "+", 
        RowBox[{"e", " ", 
         SuperscriptBox["x", "2"]}]}], ")"}], 
      RowBox[{"q", " ", "-", "1"}]], " ", 
     RowBox[{"(", 
      RowBox[{"a", "+", 
       RowBox[{"b", " ", 
        RowBox[{"Log", "[", 
         RowBox[{"c", " ", 
          SuperscriptBox["x", "n"]}], "]"}]}]}], ")"}], 
     RowBox[{"\[DifferentialD]", "x"}]}]}]}]}]], "Subsubtitle",
 CellDingbat->None,
 CellChangeTimes->{{3.4796579732027807`*^9, 3.479658002474872*^9}, {
   3.4796580599975853`*^9, 3.4796580609489536`*^9}, {3.479658295195784*^9, 
   3.47965829684816*^9}, 3.4796611938939075`*^9, 3.4796613924794593`*^9, {
   3.479661443342597*^9, 3.479661446647349*^9}, {3.479661576554146*^9, 
   3.479661589302477*^9}, 3.479661847553824*^9, {3.4796622294729967`*^9, 
   3.4796622450654173`*^9}, {3.479686720424531*^9, 3.4796867204345455`*^9}, {
   3.4796874646646957`*^9, 3.4796874745589232`*^9}, {3.492826573513727*^9, 
   3.492826578630536*^9}, {3.4928267070863624`*^9, 3.492826707460763*^9}, 
   3.4928267903497095`*^9, {3.492829799151373*^9, 3.4928299617216005`*^9}, {
   3.4940972077187414`*^9, 3.4940972347887793`*^9}, {3.49409966398218*^9, 
   3.494099664952181*^9}, {3.4940997156722527`*^9, 3.494099716112253*^9}, 
   3.4941724567488375`*^9, {3.4941727384192314`*^9, 3.494172760679263*^9}, {
   3.495161485476845*^9, 3.4951615041032777`*^9}, 3.4951622258697453`*^9, 
   3.4951623402647467`*^9, 3.4951624589029546`*^9, {3.4951625764731617`*^9, 
   3.4951626064252143`*^9}, {3.4951628369780197`*^9, 
   3.4951628486156397`*^9}, {3.495162963603442*^9, 3.495162975147462*^9}, {
   3.4953186997347507`*^9, 3.49531874939482*^9}, {3.51595528804482*^9, 
   3.515955297467236*^9}, {3.5159554395714855`*^9, 3.5159554418334894`*^9}, {
   3.551294210163848*^9, 3.5512942133650312`*^9}, {3.5706258947184963`*^9, 
   3.57062591381293*^9}, {3.5706259678514247`*^9, 3.5706260736664104`*^9}, {
   3.570626196407426*^9, 3.570626203006238*^9}, {3.621963535689786*^9, 
   3.6219635366098385`*^9}, {3.621963590753935*^9, 3.6219636139572625`*^9}, 
   3.6219637084396667`*^9, {3.6219640002973595`*^9, 3.6219640436238375`*^9}, {
   3.6219643858204107`*^9, 3.6219644419626217`*^9}, {3.7027917317312365`*^9, 
   3.7027917562446384`*^9}, {3.70279180767458*^9, 3.7027918097967014`*^9}, {
   3.71614789100803*^9, 3.716147892972142*^9}, {3.716153844907136*^9, 
   3.7161538673254185`*^9}, {3.71708978773378*^9, 3.7170897955752287`*^9}, {
   3.7170911829391465`*^9, 3.717091197547982*^9}, {3.7170922197397356`*^9, 
   3.717092224918945*^9}, {3.71709359895553*^9, 3.7170936722322598`*^9}, {
   3.7171025583318233`*^9, 3.7171025583474236`*^9}, {3.717883519794281*^9, 
   3.717883562737737*^9}, 3.7178837350555935`*^9, {3.7178838156592035`*^9, 
   3.7178838423597307`*^9}, 3.7178839278516207`*^9, {3.7178839635326614`*^9, 
   3.7178839775684643`*^9}, {3.7178840237061033`*^9, 
   3.7178840240981255`*^9}, {3.7178850398812246`*^9, 3.717885050180814*^9}, {
   3.7178851351516743`*^9, 3.717885135451691*^9}, {3.7178854674886827`*^9, 
   3.717885502253671*^9}, {3.717964248849371*^9, 3.717964279066099*^9}, 
   3.717964381321948*^9, {3.717969043409604*^9, 3.717969043617616*^9}, {
   3.723945323271287*^9, 3.723945333570876*^9}, {3.7239459451518564`*^9, 
   3.723945948779064*^9}},
 TextAlignment->Center,
 FontSize->12,
 FontWeight->"Bold"],

Cell["Program code:", "Subsubsection",
 CellDingbat->"\[FilledSmallSquare]",
 CellChangeTimes->{{3.4794189093216*^9, 3.479418932274605*^9}, {
   3.479418981395237*^9, 3.4794189822564754`*^9}, {3.4794192068193808`*^9, 
   3.4794192077607346`*^9}, 3.479420089138093*^9, {3.479420130978256*^9, 
   3.4794201410627565`*^9}, {3.479420560345656*^9, 3.479420578171288*^9}, {
   3.479420683943381*^9, 3.4794206847645617`*^9}, {3.4794210347678413`*^9, 
   3.4794210503903055`*^9}, 3.4803613662913427`*^9, {3.480361406058525*^9, 
   3.48036141974821*^9}, {3.4803614672865667`*^9, 3.480361474717252*^9}, 
   3.4807050675119123`*^9, {3.492804314166378*^9, 3.4928043441496305`*^9}, {
   3.4928044532166224`*^9, 3.492804453513023*^9}, {3.492805162266266*^9, 
   3.492805165713872*^9}, 3.4941724567488375`*^9}],

Cell[BoxData[
 RowBox[{
  RowBox[{"Int", "[", 
   RowBox[{
    RowBox[{
     RowBox[{
      RowBox[{"(", 
       RowBox[{"d_", "+", 
        RowBox[{"e_.", "*", 
         RowBox[{"x_", "^", "2"}]}]}], ")"}], "^", "q_."}], "*", 
     RowBox[{"(", 
      RowBox[{"a_.", "+", 
       RowBox[{"b_.", "*", 
        RowBox[{"Log", "[", 
         RowBox[{"c_.", "*", 
          RowBox[{"x_", "^", "n_."}]}], "]"}]}]}], ")"}]}], ",", "x_Symbol"}],
    "]"}], " ", ":=", "\n", "  ", 
  RowBox[{
   RowBox[{
    RowBox[{"x", "*", 
     RowBox[{
      RowBox[{"(", 
       RowBox[{"d", "+", 
        RowBox[{"e", "*", 
         RowBox[{"x", "^", "2"}]}]}], ")"}], "^", "q"}], "*", 
     RowBox[{
      RowBox[{"(", 
       RowBox[{"a", "+", 
        RowBox[{"b", "*", 
         RowBox[{"Log", "[", 
          RowBox[{"c", "*", 
           RowBox[{"x", "^", "n"}]}], "]"}]}]}], ")"}], "/", 
      RowBox[{"(", 
       RowBox[{
        RowBox[{"2", "*", "q"}], "+", "1"}], ")"}]}]}], " ", "-", " ", "\n", 
    "  ", 
    RowBox[{"b", "*", 
     RowBox[{"n", "/", 
      RowBox[{"(", 
       RowBox[{
        RowBox[{"2", "*", "q"}], "+", "1"}], ")"}]}], "*", 
     RowBox[{"Int", "[", 
      RowBox[{
       RowBox[{
        RowBox[{"(", 
         RowBox[{"d", "+", 
          RowBox[{"e", "*", 
           RowBox[{"x", "^", "2"}]}]}], ")"}], "^", "q"}], ",", "x"}], 
      "]"}]}], " ", "+", " ", "\n", "  ", 
    RowBox[{"2", "*", "d", "*", 
     RowBox[{"q", "/", 
      RowBox[{"(", 
       RowBox[{
        RowBox[{"2", "*", "q"}], "+", "1"}], ")"}]}], "*", 
     RowBox[{"Int", "[", 
      RowBox[{
       RowBox[{
        RowBox[{
         RowBox[{"(", 
          RowBox[{"d", "+", 
           RowBox[{"e", "*", 
            RowBox[{"x", "^", "2"}]}]}], ")"}], "^", 
         RowBox[{"(", 
          RowBox[{"q", "-", "1"}], ")"}]}], "*", 
        RowBox[{"(", 
         RowBox[{"a", "+", 
          RowBox[{"b", "*", 
           RowBox[{"Log", "[", 
            RowBox[{"c", "*", 
             RowBox[{"x", "^", "n"}]}], "]"}]}]}], ")"}]}], ",", "x"}], 
      "]"}]}]}], " ", "/;", "\n", 
   RowBox[{
    RowBox[{"FreeQ", "[", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{"a", ",", "b", ",", "c", ",", "d", ",", "e", ",", "n"}], "}"}],
       ",", "x"}], "]"}], " ", "&&", " ", 
    RowBox[{"GtQ", "[", 
     RowBox[{"q", ",", "0"}], "]"}]}]}]}]], "Code",
 CellChangeTimes->{{3.494097279728842*^9, 3.494097309778884*^9}, {
   3.494099665582182*^9, 3.4940996672021847`*^9}, {3.4940997193022575`*^9, 
   3.494099719662258*^9}, 3.4941724567488375`*^9, 3.494172717389202*^9, 
   3.495161451843186*^9, 3.4951616878092003`*^9, 3.495162292263462*^9, 
   3.49516247887099*^9, 3.4951626919289646`*^9, 3.4951627504134674`*^9, 
   3.548733189244907*^9, 3.5487333497590876`*^9, {3.5512944878287296`*^9, 
   3.551294495263155*^9}, {3.551295101626837*^9, 3.5512951328186207`*^9}, {
   3.551295559331016*^9, 3.5512955650673437`*^9}, {3.5512971853300176`*^9, 
   3.5512971906853237`*^9}, {3.5512974190273843`*^9, 
   3.5512974239016633`*^9}, {3.5706262613191404`*^9, 
   3.5706262756867657`*^9}, {3.5706263647629223`*^9, 
   3.5706263775393443`*^9}, {3.57062648903274*^9, 3.5706265180175915`*^9}, {
   3.5709206646650977`*^9, 3.570920665995099*^9}, {3.5709207045951533`*^9, 
   3.5709207315751915`*^9}, {3.6219073135736685`*^9, 3.621907339923176*^9}, 
   3.6219075185103903`*^9, {3.6219075896854615`*^9, 3.621907603168233*^9}, {
   3.621963623637816*^9, 3.6219636248208838`*^9}, 3.621963764418868*^9, {
   3.621963845338496*^9, 3.6219638661946898`*^9}, {3.621964091441573*^9, 
   3.6219640960838385`*^9}, {3.6219641333489695`*^9, 
   3.6219641560752697`*^9}, {3.6219646436721587`*^9, 3.621964657890972*^9}, 
   3.621964721611616*^9, {3.6219745734062786`*^9, 3.6219745974996567`*^9}, {
   3.7027917362734957`*^9, 3.7027917608148994`*^9}, {3.7027918122318406`*^9, 
   3.7027918187672143`*^9}, {3.7027923914578247`*^9, 3.702792398659237*^9}, {
   3.7027924313881087`*^9, 3.702792439727586*^9}, {3.7161454735057564`*^9, 
   3.716145477852005*^9}, {3.716147897641409*^9, 3.7161479049908295`*^9}, {
   3.7161480052225623`*^9, 3.7161480077867093`*^9}, 3.7161486937069416`*^9, {
   3.7161487353143215`*^9, 3.716148738200486*^9}, 3.717089738357956*^9, {
   3.7170899085946927`*^9, 3.7170899336641264`*^9}, {3.7170900284394374`*^9, 
   3.7170900336498466`*^9}, {3.7170900937249017`*^9, 3.7170900968293076`*^9},
    {3.71709040808854*^9, 3.7170904301308007`*^9}, {3.7170908960575066`*^9, 
   3.7170908985399113`*^9}, {3.7170912112947683`*^9, 
   3.7170912303848605`*^9}, {3.717092249662588*^9, 3.717092257415802*^9}, 
   3.717092645991087*^9, {3.717093684199481*^9, 3.7170937043557167`*^9}, {
   3.7170937444193373`*^9, 3.717093752593752*^9}, {3.717093828043485*^9, 
   3.71709387080916*^9}, {3.717095411460695*^9, 3.7170954259349213`*^9}, {
   3.7170955229594917`*^9, 3.717095555907936*^9}, 3.717097286640851*^9, {
   3.71788406525548*^9, 3.7178841788899794`*^9}, {3.717884245218773*^9, 
   3.717884270587224*^9}, 3.717884316604856*^9, {3.7178849037924414`*^9, 
   3.717884910431821*^9}, {3.7178853956135716`*^9, 3.717885452487825*^9}, {
   3.717885537097664*^9, 3.717885538902767*^9}, {3.717885571091608*^9, 
   3.7178857157998853`*^9}, 3.717885901453504*^9, {3.717964370955355*^9, 
   3.717964372031417*^9}, {3.7179644152148867`*^9, 3.717964471691117*^9}, {
   3.717966830983061*^9, 3.717966831598096*^9}, {3.717969087759141*^9, 
   3.7179691024729824`*^9}, {3.723668377837527*^9, 3.723668452657632*^9}, {
   3.723668677677947*^9, 3.7236686839679556`*^9}, 3.7236687204680066`*^9, {
   3.723668788118101*^9, 3.7236687931581087`*^9}, 3.723749301696486*^9, 
   3.723945427925273*^9, {3.723945495070113*^9, 3.7239455155662856`*^9}, {
   3.723945639716387*^9, 3.7239456456367254`*^9}},
 Background->GrayLevel[0.85]],

Cell["", "Subsubsection",
 CellDingbat->None,
 CellChangeTimes->{3.4796643211106243`*^9, 3.4941724567488375`*^9}]
}, Closed]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"\t", 
  RowBox[{Cell[TextData[StyleBox["2.",
    FontFamily->"Arial"]], "None"], "  ", 
   RowBox[{"\[Integral]", 
    RowBox[{
     SuperscriptBox[
      RowBox[{"(", 
       RowBox[{"d", "+", 
        RowBox[{"e", " ", 
         SuperscriptBox["x", "2"]}]}], ")"}], "q"], " ", 
     RowBox[{"(", 
      RowBox[{"a", "+", 
       RowBox[{"b", " ", 
        RowBox[{"Log", "[", 
         RowBox[{"c", " ", 
          SuperscriptBox["x", "n"]}], "]"}]}]}], ")"}], 
     RowBox[{"\[DifferentialD]", "x"}], "  ", 
     StyleBox["when",
      FontFamily->"Arial",
      FontWeight->"Plain"], 
     StyleBox["  ",
      FontFamily->"Arial",
      FontWeight->"Plain"], Cell[TextData[Cell[BoxData[
      RowBox[{"q", "<", 
       RowBox[{"-", "1"}]}]]]], "None"]}]}]}]}]], "Subsubtitle",
 CellDingbat->None,
 CellChangeTimes->{
  3.477935275784027*^9, {3.477935350060832*^9, 3.477935352384173*^9}, {
   3.477935393803731*^9, 3.477935400102789*^9}, {3.477935515378547*^9, 
   3.47793552034569*^9}, 3.478120029940968*^9, {3.479318860690858*^9, 
   3.47931886615872*^9}, {3.4794185033278093`*^9, 3.479418503918659*^9}, 
   3.4795122294117584`*^9, {3.479615913307893*^9, 3.4796159352794867`*^9}, 
   3.4796160386581373`*^9, 3.4796867204045024`*^9, {3.4928025699585147`*^9, 
   3.492802570130115*^9}, 3.492822274480175*^9, 3.492825822242408*^9, {
   3.4940970615585365`*^9, 3.494097062168537*^9}, {3.496441349250718*^9, 
   3.496441349830719*^9}, 3.4964414848609076`*^9, 3.496521708137803*^9, {
   3.4965218981240697`*^9, 3.49652189838407*^9}, 3.4965229070755*^9, 
   3.519247079685614*^9, {3.5193208582062006`*^9, 3.5193208612170057`*^9}, 
   3.5193325694253187`*^9, {3.5193415004828687`*^9, 3.5193415113404875`*^9}, {
   3.5193513965602303`*^9, 3.519351397420232*^9}, {3.5194037839416766`*^9, 
   3.5194037847117205`*^9}, 3.52105258275843*^9, 3.5210531741726685`*^9, {
   3.521057461672199*^9, 3.5210574760242243`*^9}, {3.521059881564049*^9, 
   3.521059886088057*^9}, {3.5213902158895197`*^9, 3.521390217543123*^9}, {
   3.521390827878595*^9, 3.521390829376197*^9}, {3.5214688792561245`*^9, 
   3.521468879443325*^9}, {3.523320201951167*^9, 3.523320202247567*^9}, {
   3.5288596764894824`*^9, 3.5288596768094826`*^9}, {3.529196266260353*^9, 
   3.5291962665099535`*^9}, {3.5291997050223927`*^9, 
   3.5291997052563934`*^9}, {3.529201346457276*^9, 3.529201347252877*^9}, {
   3.529285041073242*^9, 3.5292850412632427`*^9}, {3.529285215443486*^9, 
   3.529285215443486*^9}, {3.5295115356999426`*^9, 3.5295115433443794`*^9}, {
   3.529521412127842*^9, 3.529521414647986*^9}, {3.529529429975619*^9, 
   3.529529432955224*^9}, 3.5340074894011116`*^9, 3.5415537711400824`*^9, {
   3.5415538454742126`*^9, 3.54155384951462*^9}, {3.5417297197063265`*^9, 
   3.5417297252443366`*^9}, {3.546297494083555*^9, 3.5462974982435613`*^9}, {
   3.5462989134855423`*^9, 3.5462989153655453`*^9}, 3.548544146508506*^9, 
   3.5488738855784535`*^9, {3.5505953688729563`*^9, 3.5505953726861744`*^9}, 
   3.550771858531652*^9, {3.5507798163368125`*^9, 3.5507798167628365`*^9}, {
   3.550810430436808*^9, 3.550810430782828*^9}, {3.5513085224509587`*^9, 
   3.5513085267722063`*^9}, {3.5513263051951714`*^9, 
   3.5513263057772045`*^9}, {3.5521507775979223`*^9, 
   3.5521507793139253`*^9}, {3.5521518343281784`*^9, 
   3.5521518354513807`*^9}, {3.570556116362685*^9, 3.570556116362685*^9}, {
   3.570556384903061*^9, 3.5705564067030916`*^9}, {3.5705565154232435`*^9, 
   3.570556515653244*^9}, 3.570558825556478*^9, {3.5705869481991963`*^9, 
   3.5705869533292036`*^9}, 3.621900804633379*^9, 3.6219070314275312`*^9, {
   3.6219073832556543`*^9, 3.6219073832556543`*^9}, 3.6219787973808765`*^9, {
   3.6221642508690434`*^9, 3.622164251046054*^9}, {3.6226631569367566`*^9, 
   3.622663157136757*^9}, {3.7165730284444876`*^9, 3.7165730587152195`*^9}, {
   3.716573095366316*^9, 3.7165730972684245`*^9}, 3.716665843148676*^9, {
   3.7166659051992245`*^9, 3.716665905415237*^9}, {3.7179693557764707`*^9, 
   3.717969356068487*^9}, {3.717979867838641*^9, 3.7179798870217385`*^9}, {
   3.7179800641588707`*^9, 3.717980064341881*^9}, {3.7179991657722178`*^9, 
   3.717999166116237*^9}, {3.7239451801431007`*^9, 3.7239452100008087`*^9}, {
   3.7239458030437284`*^9, 3.723945814211367*^9}, 3.7461206958292866`*^9},
 FontSize->12,
 FontWeight->"Bold"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"\t\t", 
  RowBox[{Cell[TextData[StyleBox["1:",
    FontFamily->"Arial",
    FontColor->RGBColor[1, 0, 0]]], "None"], "  ", 
   RowBox[{"\[Integral]", 
    RowBox[{
     FractionBox[
      RowBox[{"a", "+", 
       RowBox[{"b", " ", 
        RowBox[{"Log", "[", 
         RowBox[{"c", " ", 
          SuperscriptBox["x", "n"]}], "]"}]}]}], 
      SuperscriptBox[
       RowBox[{"(", 
        RowBox[{"d", "+", 
         RowBox[{"e", " ", 
          SuperscriptBox["x", "2"]}]}], ")"}], 
       RowBox[{"3", "/", "2"}]]], 
     RowBox[{"\[DifferentialD]", "x"}]}]}]}]}]], "Subsubtitle",
 CellDingbat->None,
 CellChangeTimes->{
  3.477935275784027*^9, {3.477935350060832*^9, 3.477935352384173*^9}, {
   3.477935393803731*^9, 3.477935400102789*^9}, {3.477935515378547*^9, 
   3.47793552034569*^9}, 3.478120029940968*^9, {3.479318860690858*^9, 
   3.47931886615872*^9}, {3.4794185033278093`*^9, 3.479418503918659*^9}, 
   3.4795122294117584`*^9, {3.479615913307893*^9, 3.4796159352794867`*^9}, 
   3.4796160386581373`*^9, 3.4796867204045024`*^9, {3.4928025699585147`*^9, 
   3.492802570130115*^9}, 3.492822274480175*^9, 3.492825822242408*^9, {
   3.4940970615585365`*^9, 3.494097062168537*^9}, {3.496441349250718*^9, 
   3.496441349830719*^9}, 3.4964414848609076`*^9, 3.496521708137803*^9, {
   3.4965218981240697`*^9, 3.49652189838407*^9}, 3.4965229070755*^9, 
   3.519247079685614*^9, {3.5193208582062006`*^9, 3.5193208612170057`*^9}, 
   3.5193325694253187`*^9, {3.5193422443984776`*^9, 3.5193422447260776`*^9}, 
   3.5193424488212357`*^9, {3.5193434708254333`*^9, 3.519343473103037*^9}, {
   3.5193435097631016`*^9, 3.51934353169674*^9}, {3.519345739319023*^9, 
   3.519345739599823*^9}, 3.5193462601259375`*^9, {3.5193475061060295`*^9, 
   3.5193475233908596`*^9}, {3.519351391880224*^9, 3.5193513931402254`*^9}, {
   3.519403773021052*^9, 3.5194037798564425`*^9}, 3.5194106793250647`*^9, {
   3.519537578341393*^9, 3.5195375792305946`*^9}, {3.5195376277778797`*^9, 
   3.51953767927357*^9}, {3.5197586260636144`*^9, 3.5197586260636144`*^9}, {
   3.51978053295651*^9, 3.519780542862528*^9}, {3.5197806526087203`*^9, 
   3.5197806657595434`*^9}, {3.5197807490168896`*^9, 3.5197807642581167`*^9}, 
   3.5197809004619555`*^9, {3.519782653514635*^9, 3.5197826623286505`*^9}, {
   3.5200207810164795`*^9, 3.520020785046485*^9}, {3.5213126833374643`*^9, 
   3.5213126833374643`*^9}, {3.521328235411002*^9, 3.521328235411002*^9}, {
   3.523315567893022*^9, 3.523315567893022*^9}, {3.5233157569332867`*^9, 
   3.5233157613032923`*^9}, {3.5323023198133526`*^9, 3.532302355723403*^9}, {
   3.5323026417638035`*^9, 3.5323026417638035`*^9}, {3.5323026980138817`*^9, 
   3.5323026980138817`*^9}, {3.532636287104328*^9, 3.532636287104328*^9}, {
   3.5330803686035347`*^9, 3.533080368863535*^9}, {3.533248909289961*^9, 
   3.5332489110299635`*^9}, {3.534962469565694*^9, 3.5349624910757236`*^9}, {
   3.5349625224057674`*^9, 3.534962522655768*^9}, {3.534965265519608*^9, 
   3.534965265519608*^9}, {3.5349668288168063`*^9, 3.5349668292668066`*^9}, {
   3.5349747358481646`*^9, 3.5349747358481646`*^9}, {3.534975457949176*^9, 
   3.534975457949176*^9}, {3.5368633963532934`*^9, 3.536863396571694*^9}, {
   3.541644322511304*^9, 3.5416443577513533`*^9}, {3.5416458269234104`*^9, 
   3.541645839633428*^9}, {3.5416460312236967`*^9, 3.541646031483697*^9}, 
   3.541646227783972*^9, {3.541647080335165*^9, 3.5416471077052035`*^9}, {
   3.541648997607849*^9, 3.5416489978278494`*^9}, 3.541649088407976*^9, {
   3.5417848711596775`*^9, 3.541784902429721*^9}, {3.541786145331461*^9, 
   3.5417861455914617`*^9}, {3.5417870037166634`*^9, 3.5417870039366636`*^9}, 
   3.5462979620242105`*^9, {3.546298264094633*^9, 3.546298265344635*^9}, {
   3.546299000235664*^9, 3.546299001505666*^9}, {3.546315119909564*^9, 
   3.5463151267659564`*^9}, {3.547227356319705*^9, 3.547227356319705*^9}, 
   3.547918559331044*^9, {3.547918610170952*^9, 3.5479186304411116`*^9}, 
   3.548537755517557*^9, 3.5485441629685287`*^9, 3.5485517520154133`*^9, {
   3.5488740727887154`*^9, 3.5488740727887154`*^9}, {3.548874206618903*^9, 
   3.548874206808903*^9}, 3.548877100795455*^9, 3.550596464087599*^9, {
   3.5505965767870445`*^9, 3.5505965767870445`*^9}, 3.5505966202465305`*^9, {
   3.5506039138305197`*^9, 3.55060391400453*^9}, {3.5506040039986773`*^9, 
   3.550604005776779*^9}, {3.5506178888272758`*^9, 3.5506178900273447`*^9}, {
   3.5507714128001575`*^9, 3.5507714579237385`*^9}, 3.5507715736503572`*^9, {
   3.550771605757194*^9, 3.550771605757194*^9}, {3.5507784779162593`*^9, 
   3.550778485089669*^9}, {3.5512945755817485`*^9, 3.5512945774348545`*^9}, {
   3.5512950851568947`*^9, 3.551295087206012*^9}, {3.5512951503876257`*^9, 
   3.5512951503876257`*^9}, 3.5521508023707657`*^9, 3.570556429483124*^9, 
   3.570556813913662*^9, {3.570556871323742*^9, 3.5705568726537437`*^9}, {
   3.5705589342766304`*^9, 3.5705589351566315`*^9}, {3.5705726285190425`*^9, 
   3.5705726598690863`*^9}, {3.5705727092291555`*^9, 3.57057271224916*^9}, {
   3.570590818264614*^9, 3.570590830644632*^9}, {3.5705909646248198`*^9, 
   3.5705909676948233`*^9}, {3.5706259368541703`*^9, 
   3.5706259368541703`*^9}, {3.5706261207628937`*^9, 3.5706261259733024`*^9}, 
   3.6219635347757335`*^9, {3.6219636066848464`*^9, 3.6219636066848464`*^9}, 
   3.621963707855633*^9, {3.6219639063569865`*^9, 3.6219639063569865`*^9}, 
   3.621963999584319*^9, {3.621964297837378*^9, 3.621964332188343*^9}, 
   3.621978810333617*^9, {3.702790664787342*^9, 3.702790669151592*^9}, {
   3.702791728371044*^9, 3.702791752929449*^9}, {3.70279180505943*^9, 
   3.7027918059684825`*^9}, {3.702792310843214*^9, 3.7027923216488323`*^9}, {
   3.716146180617201*^9, 3.716146180988222*^9}, 3.716146268281215*^9, 
   3.716147479832512*^9, {3.7161478815074863`*^9, 3.7161478827545576`*^9}, {
   3.716148001980377*^9, 3.7161480022213907`*^9}, {3.7161487310220757`*^9, 
   3.7161487521682854`*^9}, {3.717089552397103*^9, 3.717089555190508*^9}, {
   3.7170897080711775`*^9, 3.7170897080711775`*^9}, 3.7170897786372595`*^9, {
   3.7170898316912937`*^9, 3.717089849503313*^9}, {3.7170903615068755`*^9, 
   3.717090366046135*^9}, {3.7170908333901424`*^9, 3.717090837000349*^9}, {
   3.7170933189428363`*^9, 3.7170933815839467`*^9}, 3.717093582645501*^9, {
   3.7170938977690077`*^9, 3.7170939070062246`*^9}, {3.7170968317616477`*^9, 
   3.7170968334776506`*^9}, {3.7171025150267463`*^9, 3.7171025216275578`*^9}, 
   3.717102558113423*^9, {3.717631877768054*^9, 3.717631877998067*^9}, {
   3.717638713072011*^9, 3.7176387132230196`*^9}, {3.7177017897031126`*^9, 
   3.717701789899124*^9}, {3.7177352608576655`*^9, 3.7177352611366816`*^9}, {
   3.717819826023097*^9, 3.7178198262431097`*^9}, {3.7178832164929333`*^9, 
   3.71788324510557*^9}, {3.7178833260191975`*^9, 3.7178833586220627`*^9}, {
   3.717883444648983*^9, 3.717883468831366*^9}, {3.7178849177682405`*^9, 
   3.717884926823758*^9}, {3.7178849924715133`*^9, 3.7178849924715133`*^9}, {
   3.7178850271264954`*^9, 3.7178850321787844`*^9}, {3.71788576640978*^9, 
   3.717885777916438*^9}, {3.7178862048408566`*^9, 3.717886205019867*^9}, 
   3.7179642461222153`*^9, {3.7179642934709234`*^9, 3.717964295634047*^9}, {
   3.717964345653908*^9, 3.7179643459389243`*^9}, {3.717964716630127*^9, 
   3.717964717691187*^9}, {3.7179647846400166`*^9, 3.7179647851190443`*^9}, {
   3.7179648570291567`*^9, 3.7179648572351685`*^9}, {3.71796899298572*^9, 
   3.71796899839703*^9}, {3.7179798439062724`*^9, 3.717979845644372*^9}, {
   3.7239452586235895`*^9, 3.7239452874052353`*^9}, {3.7239455589577675`*^9, 
   3.7239455606438637`*^9}, {3.7239458158754625`*^9, 
   3.7239458280901613`*^9}, {3.7239458631311655`*^9, 3.723945875187855*^9}, 
   3.746120696278312*^9},
 FontSize->12,
 FontWeight->"Bold"],

Cell["Rule:", "Subsubsection",
 CellDingbat->"\[FilledSmallSquare]",
 CellChangeTimes->{{3.4794189093216*^9, 3.479418932274605*^9}, {
   3.479418981395237*^9, 3.4794189822564754`*^9}, {3.4794192068193808`*^9, 
   3.4794192077607346`*^9}, 3.479420089138093*^9, {3.479420130978256*^9, 
   3.4794201410627565`*^9}, {3.479420560345656*^9, 3.479420578171288*^9}, {
   3.479420683943381*^9, 3.4794206847645617`*^9}, {3.4794210347678413`*^9, 
   3.4794210503903055`*^9}, 3.4803613662913427`*^9, {3.480361406058525*^9, 
   3.48036141974821*^9}, {3.4803614672865667`*^9, 3.480361474717252*^9}, 
   3.48070534977779*^9, {3.4928296953212276`*^9, 3.492829707041244*^9}, 
   3.4941724084687696`*^9, 3.4941724567488375`*^9, 3.494172783029294*^9, {
   3.495162076203082*^9, 3.495162102707529*^9}, {3.495162264932214*^9, 
   3.495162277318636*^9}, {3.4951624969202213`*^9, 3.495162512208248*^9}, {
   3.4951627568718786`*^9, 3.4951627903339376`*^9}, {3.5507715824428606`*^9, 
   3.5507715974747205`*^9}, {3.551295058972397*^9, 3.5512950662198114`*^9}, {
   3.5706259391161747`*^9, 3.5706259391161747`*^9}, {3.5706261448181353`*^9, 
   3.5706261448181353`*^9}, {3.621963609569011*^9, 3.621963609569011*^9}, {
   3.621964345495104*^9, 3.621964345495104*^9}, {3.7027917306691756`*^9, 
   3.7027917537684965`*^9}, {3.7027918067845287`*^9, 3.702791806785529*^9}, {
   3.7027923275021667`*^9, 3.7027923275021667`*^9}, {3.7161478893629355`*^9, 
   3.7161478893629355`*^9}, {3.7161487602327466`*^9, 
   3.7161487602327466`*^9}, {3.7170897093035793`*^9, 
   3.7170897093035793`*^9}, {3.717089858854848*^9, 3.717089858854848*^9}, {
   3.7170904424085026`*^9, 3.7170904424085026`*^9}, {3.7170939135114355`*^9, 
   3.7170939135114355`*^9}, {3.7178835901923075`*^9, 
   3.7178835901923075`*^9}, {3.7178849988128757`*^9, 
   3.7178849988128757`*^9}, {3.71788518385246*^9, 3.7178851865096116`*^9}, {
   3.7178857825447025`*^9, 3.7178857825447025`*^9}, {3.7179643317771144`*^9, 
   3.7179643317771144`*^9}, {3.7179648190979877`*^9, 
   3.7179648195330124`*^9}, {3.71796900363933*^9, 3.7179690184511766`*^9}, {
   3.723945407628112*^9, 3.7239454126904016`*^9}, {3.7239455861423225`*^9, 
   3.7239455861423225`*^9}, 3.7239458669273825`*^9}],

Cell[BoxData[
 RowBox[{
  RowBox[{"\[Integral]", 
   RowBox[{
    FractionBox[
     RowBox[{"a", "+", 
      RowBox[{"b", " ", 
       RowBox[{"Log", "[", 
        RowBox[{"c", " ", 
         SuperscriptBox["x", "n"]}], "]"}]}]}], 
     SuperscriptBox[
      RowBox[{"(", 
       RowBox[{"d", "+", 
        RowBox[{"e", " ", 
         SuperscriptBox["x", "2"]}]}], ")"}], 
      RowBox[{"3", "/", "2"}]]], 
    RowBox[{"\[DifferentialD]", 
     RowBox[{"x", "  ", "\[LongRightArrow]", "  ", 
      FractionBox[
       RowBox[{"x", " ", 
        RowBox[{"(", 
         RowBox[{"a", "+", 
          RowBox[{"b", " ", 
           RowBox[{"Log", "[", 
            RowBox[{"c", " ", 
             SuperscriptBox["x", "n"]}], "]"}]}]}], ")"}]}], 
       RowBox[{"d", " ", 
        SqrtBox[
         RowBox[{"d", "+", 
          RowBox[{"e", " ", 
           SuperscriptBox["x", "2"]}]}]]}]]}]}]}]}], "-", 
  RowBox[{
   FractionBox[
    RowBox[{"b", " ", "n"}], "d"], " ", 
   RowBox[{"\[Integral]", 
    RowBox[{
     FractionBox["1", 
      SqrtBox[
       RowBox[{"d", "+", 
        RowBox[{"e", " ", 
         SuperscriptBox["x", "2"]}]}]]], 
     RowBox[{"\[DifferentialD]", "x"}]}]}]}]}]], "Subsubtitle",
 CellDingbat->None,
 CellChangeTimes->{{3.4796579732027807`*^9, 3.479658002474872*^9}, {
   3.4796580599975853`*^9, 3.4796580609489536`*^9}, {3.479658295195784*^9, 
   3.47965829684816*^9}, 3.4796611938939075`*^9, 3.4796613924794593`*^9, {
   3.479661443342597*^9, 3.479661446647349*^9}, {3.479661576554146*^9, 
   3.479661589302477*^9}, 3.479661847553824*^9, {3.4796622294729967`*^9, 
   3.4796622450654173`*^9}, {3.479686720424531*^9, 3.4796867204345455`*^9}, {
   3.4796874646646957`*^9, 3.4796874745589232`*^9}, {3.492826573513727*^9, 
   3.492826578630536*^9}, {3.4928267070863624`*^9, 3.492826707460763*^9}, 
   3.4928267903497095`*^9, {3.492829799151373*^9, 3.4928299617216005`*^9}, {
   3.4940972077187414`*^9, 3.4940972347887793`*^9}, {3.49409966398218*^9, 
   3.494099664952181*^9}, {3.4940997156722527`*^9, 3.494099716112253*^9}, 
   3.4941724567488375`*^9, {3.4941727384192314`*^9, 3.494172760679263*^9}, {
   3.495161485476845*^9, 3.4951615041032777`*^9}, 3.4951622258697453`*^9, 
   3.4951623402647467`*^9, 3.4951624589029546`*^9, {3.4951625764731617`*^9, 
   3.4951626064252143`*^9}, {3.4951628369780197`*^9, 
   3.4951628486156397`*^9}, {3.495162963603442*^9, 3.495162975147462*^9}, {
   3.4953186997347507`*^9, 3.49531874939482*^9}, {3.51595528804482*^9, 
   3.515955297467236*^9}, {3.5159554395714855`*^9, 3.5159554418334894`*^9}, {
   3.551294210163848*^9, 3.5512942133650312`*^9}, {3.5706258947184963`*^9, 
   3.57062591381293*^9}, {3.5706259678514247`*^9, 3.5706260736664104`*^9}, {
   3.570626196407426*^9, 3.570626203006238*^9}, {3.621963535689786*^9, 
   3.6219635366098385`*^9}, {3.621963590753935*^9, 3.6219636139572625`*^9}, 
   3.6219637084396667`*^9, {3.6219640002973595`*^9, 3.6219640436238375`*^9}, {
   3.6219643858204107`*^9, 3.6219644419626217`*^9}, {3.7027917317312365`*^9, 
   3.7027917562446384`*^9}, {3.70279180767458*^9, 3.7027918097967014`*^9}, {
   3.71614789100803*^9, 3.716147892972142*^9}, {3.716153844907136*^9, 
   3.7161538673254185`*^9}, {3.71708978773378*^9, 3.7170897955752287`*^9}, {
   3.7170911829391465`*^9, 3.717091197547982*^9}, {3.7170922197397356`*^9, 
   3.717092224918945*^9}, {3.71709359895553*^9, 3.7170936722322598`*^9}, {
   3.7171025583318233`*^9, 3.7171025583474236`*^9}, {3.717883519794281*^9, 
   3.717883562737737*^9}, 3.7178837350555935`*^9, {3.7178838156592035`*^9, 
   3.7178838423597307`*^9}, 3.7178839278516207`*^9, {3.7178839635326614`*^9, 
   3.7178839775684643`*^9}, {3.7178840237061033`*^9, 
   3.7178840240981255`*^9}, {3.7178850398812246`*^9, 3.717885050180814*^9}, {
   3.7178851351516743`*^9, 3.717885135451691*^9}, {3.7178854674886827`*^9, 
   3.717885502253671*^9}, {3.717964248849371*^9, 3.717964279066099*^9}, 
   3.717964381321948*^9, {3.717969043409604*^9, 3.717969043617616*^9}, {
   3.723945323271287*^9, 3.723945333570876*^9}, 3.723945573899622*^9, {
   3.723945847144251*^9, 3.7239458541346507`*^9}, {3.723945893861923*^9, 
   3.723945938859497*^9}, 3.723945973604484*^9, 3.7239460727341537`*^9},
 TextAlignment->Center,
 FontSize->12,
 FontWeight->"Bold"],

Cell["Program code:", "Subsubsection",
 CellDingbat->"\[FilledSmallSquare]",
 CellChangeTimes->{{3.4794189093216*^9, 3.479418932274605*^9}, {
   3.479418981395237*^9, 3.4794189822564754`*^9}, {3.4794192068193808`*^9, 
   3.4794192077607346`*^9}, 3.479420089138093*^9, {3.479420130978256*^9, 
   3.4794201410627565`*^9}, {3.479420560345656*^9, 3.479420578171288*^9}, {
   3.479420683943381*^9, 3.4794206847645617`*^9}, {3.4794210347678413`*^9, 
   3.4794210503903055`*^9}, 3.4803613662913427`*^9, {3.480361406058525*^9, 
   3.48036141974821*^9}, {3.4803614672865667`*^9, 3.480361474717252*^9}, 
   3.4807050675119123`*^9, {3.492804314166378*^9, 3.4928043441496305`*^9}, {
   3.4928044532166224`*^9, 3.492804453513023*^9}, {3.492805162266266*^9, 
   3.492805165713872*^9}, 3.4941724567488375`*^9}],

Cell[BoxData[
 RowBox[{
  RowBox[{"Int", "[", 
   RowBox[{
    RowBox[{
     RowBox[{"(", 
      RowBox[{"a_.", "+", 
       RowBox[{"b_.", "*", 
        RowBox[{"Log", "[", 
         RowBox[{"c_.", "*", 
          RowBox[{"x_", "^", "n_."}]}], "]"}]}]}], ")"}], "/", 
     RowBox[{
      RowBox[{"(", 
       RowBox[{"d_", "+", 
        RowBox[{"e_.", "*", 
         RowBox[{"x_", "^", "2"}]}]}], ")"}], "^", 
      RowBox[{"(", 
       RowBox[{"3", "/", "2"}], ")"}]}]}], ",", "x_Symbol"}], "]"}], " ", ":=",
   "\n", "  ", 
  RowBox[{
   RowBox[{
    RowBox[{"x", "*", 
     RowBox[{
      RowBox[{"(", 
       RowBox[{"a", "+", 
        RowBox[{"b", "*", 
         RowBox[{"Log", "[", 
          RowBox[{"c", "*", 
           RowBox[{"x", "^", "n"}]}], "]"}]}]}], ")"}], "/", 
      RowBox[{"(", 
       RowBox[{"d", "*", 
        RowBox[{"Sqrt", "[", 
         RowBox[{"d", "+", 
          RowBox[{"e", "*", 
           RowBox[{"x", "^", "2"}]}]}], "]"}]}], ")"}]}]}], " ", "-", " ", 
    RowBox[{"b", "*", 
     RowBox[{"n", "/", "d"}], "*", 
     RowBox[{"Int", "[", 
      RowBox[{
       RowBox[{"1", "/", 
        RowBox[{"Sqrt", "[", 
         RowBox[{"d", "+", 
          RowBox[{"e", "*", 
           RowBox[{"x", "^", "2"}]}]}], "]"}]}], ",", "x"}], "]"}]}]}], " ", "/;",
    "\n", 
   RowBox[{"FreeQ", "[", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{"a", ",", "b", ",", "c", ",", "d", ",", "e", ",", "n"}], "}"}], 
     ",", "x"}], "]"}]}]}]], "Code",
 CellChangeTimes->{{3.494097279728842*^9, 3.494097309778884*^9}, {
   3.494099665582182*^9, 3.4940996672021847`*^9}, {3.4940997193022575`*^9, 
   3.494099719662258*^9}, 3.4941724567488375`*^9, 3.494172717389202*^9, 
   3.495161451843186*^9, 3.4951616878092003`*^9, 3.495162292263462*^9, 
   3.49516247887099*^9, 3.4951626919289646`*^9, 3.4951627504134674`*^9, 
   3.548733189244907*^9, 3.5487333497590876`*^9, {3.5512944878287296`*^9, 
   3.551294495263155*^9}, {3.551295101626837*^9, 3.5512951328186207`*^9}, {
   3.551295559331016*^9, 3.5512955650673437`*^9}, {3.5512971853300176`*^9, 
   3.5512971906853237`*^9}, {3.5512974190273843`*^9, 
   3.5512974239016633`*^9}, {3.5706262613191404`*^9, 
   3.5706262756867657`*^9}, {3.5706263647629223`*^9, 
   3.5706263775393443`*^9}, {3.57062648903274*^9, 3.5706265180175915`*^9}, {
   3.5709206646650977`*^9, 3.570920665995099*^9}, {3.5709207045951533`*^9, 
   3.5709207315751915`*^9}, {3.6219073135736685`*^9, 3.621907339923176*^9}, 
   3.6219075185103903`*^9, {3.6219075896854615`*^9, 3.621907603168233*^9}, {
   3.621963623637816*^9, 3.6219636248208838`*^9}, 3.621963764418868*^9, {
   3.621963845338496*^9, 3.6219638661946898`*^9}, {3.621964091441573*^9, 
   3.6219640960838385`*^9}, {3.6219641333489695`*^9, 
   3.6219641560752697`*^9}, {3.6219646436721587`*^9, 3.621964657890972*^9}, 
   3.621964721611616*^9, {3.6219745734062786`*^9, 3.6219745974996567`*^9}, {
   3.7027917362734957`*^9, 3.7027917608148994`*^9}, {3.7027918122318406`*^9, 
   3.7027918187672143`*^9}, {3.7027923914578247`*^9, 3.702792398659237*^9}, {
   3.7027924313881087`*^9, 3.702792439727586*^9}, {3.7161454735057564`*^9, 
   3.716145477852005*^9}, {3.716147897641409*^9, 3.7161479049908295`*^9}, {
   3.7161480052225623`*^9, 3.7161480077867093`*^9}, 3.7161486937069416`*^9, {
   3.7161487353143215`*^9, 3.716148738200486*^9}, 3.717089738357956*^9, {
   3.7170899085946927`*^9, 3.7170899336641264`*^9}, {3.7170900284394374`*^9, 
   3.7170900336498466`*^9}, {3.7170900937249017`*^9, 3.7170900968293076`*^9},
    {3.71709040808854*^9, 3.7170904301308007`*^9}, {3.7170908960575066`*^9, 
   3.7170908985399113`*^9}, {3.7170912112947683`*^9, 
   3.7170912303848605`*^9}, {3.717092249662588*^9, 3.717092257415802*^9}, 
   3.717092645991087*^9, {3.717093684199481*^9, 3.7170937043557167`*^9}, {
   3.7170937444193373`*^9, 3.717093752593752*^9}, {3.717093828043485*^9, 
   3.71709387080916*^9}, {3.717095411460695*^9, 3.7170954259349213`*^9}, {
   3.7170955229594917`*^9, 3.717095555907936*^9}, 3.717097286640851*^9, {
   3.71788406525548*^9, 3.7178841788899794`*^9}, {3.717884245218773*^9, 
   3.717884270587224*^9}, 3.717884316604856*^9, {3.7178849037924414`*^9, 
   3.717884910431821*^9}, {3.7178853956135716`*^9, 3.717885452487825*^9}, {
   3.717885537097664*^9, 3.717885538902767*^9}, {3.717885571091608*^9, 
   3.7178857157998853`*^9}, 3.717885901453504*^9, {3.717964370955355*^9, 
   3.717964372031417*^9}, {3.7179644152148867`*^9, 3.717964471691117*^9}, {
   3.717966830983061*^9, 3.717966831598096*^9}, {3.717969087759141*^9, 
   3.7179691024729824`*^9}, {3.723668377837527*^9, 3.723668452657632*^9}, {
   3.723668677677947*^9, 3.7236686839679556`*^9}, 3.7236687204680066`*^9, {
   3.723668788118101*^9, 3.7236687931581087`*^9}, 3.723749301696486*^9, 
   3.723945427925273*^9, {3.723945495070113*^9, 3.7239455155662856`*^9}, {
   3.7239455883644495`*^9, 3.723945591238614*^9}, {3.723945623934484*^9, 
   3.7239456295478053`*^9}, 3.723945758682191*^9, {3.723946126497229*^9, 
   3.723946150315591*^9}},
 Background->GrayLevel[0.85]],

Cell["", "Subsubsection",
 CellDingbat->None,
 CellChangeTimes->{3.4796643211106243`*^9, 3.4941724567488375`*^9}]
}, Closed]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"\t\t", 
  RowBox[{Cell[TextData[StyleBox["2:",
    FontFamily->"Arial",
    FontColor->RGBColor[1, 0, 0]]], "None"], "  ", 
   RowBox[{"\[Integral]", 
    RowBox[{
     SuperscriptBox[
      RowBox[{"(", 
       RowBox[{"d", "+", 
        RowBox[{"e", " ", 
         SuperscriptBox["x", "2"]}]}], ")"}], "q"], " ", 
     RowBox[{"(", 
      RowBox[{"a", "+", 
       RowBox[{"b", " ", 
        RowBox[{"Log", "[", 
         RowBox[{"c", " ", 
          SuperscriptBox["x", "n"]}], "]"}]}]}], ")"}], 
     RowBox[{"\[DifferentialD]", "x"}], "  ", 
     StyleBox["when",
      FontFamily->"Arial",
      FontWeight->"Plain"], 
     StyleBox["  ",
      FontFamily->"Arial",
      FontWeight->"Plain"], Cell[TextData[Cell[BoxData[
      RowBox[{"q", "<", 
       RowBox[{"-", "1"}]}]]]], "None"]}]}]}]}]], "Subsubtitle",
 CellDingbat->None,
 CellChangeTimes->{
  3.477935275784027*^9, {3.477935350060832*^9, 3.477935352384173*^9}, {
   3.477935393803731*^9, 3.477935400102789*^9}, {3.477935515378547*^9, 
   3.47793552034569*^9}, 3.478120029940968*^9, {3.479318860690858*^9, 
   3.47931886615872*^9}, {3.4794185033278093`*^9, 3.479418503918659*^9}, 
   3.4795122294117584`*^9, {3.479615913307893*^9, 3.4796159352794867`*^9}, 
   3.4796160386581373`*^9, 3.4796867204045024`*^9, {3.4928025699585147`*^9, 
   3.492802570130115*^9}, 3.492822274480175*^9, 3.492825822242408*^9, {
   3.4940970615585365`*^9, 3.494097062168537*^9}, {3.496441349250718*^9, 
   3.496441349830719*^9}, 3.4964414848609076`*^9, 3.496521708137803*^9, {
   3.4965218981240697`*^9, 3.49652189838407*^9}, 3.4965229070755*^9, 
   3.519247079685614*^9, {3.5193208582062006`*^9, 3.5193208612170057`*^9}, 
   3.5193325694253187`*^9, {3.5193422443984776`*^9, 3.5193422447260776`*^9}, 
   3.5193424488212357`*^9, {3.5193434708254333`*^9, 3.519343473103037*^9}, {
   3.5193435097631016`*^9, 3.51934353169674*^9}, {3.519345739319023*^9, 
   3.519345739599823*^9}, 3.5193462601259375`*^9, {3.5193475061060295`*^9, 
   3.5193475233908596`*^9}, {3.519351391880224*^9, 3.5193513931402254`*^9}, {
   3.519403773021052*^9, 3.5194037798564425`*^9}, 3.5194106793250647`*^9, {
   3.519537578341393*^9, 3.5195375792305946`*^9}, {3.5195376277778797`*^9, 
   3.51953767927357*^9}, {3.5197586260636144`*^9, 3.5197586260636144`*^9}, {
   3.51978053295651*^9, 3.519780542862528*^9}, {3.5197806526087203`*^9, 
   3.5197806657595434`*^9}, {3.5197807490168896`*^9, 3.5197807642581167`*^9}, 
   3.5197809004619555`*^9, {3.519782653514635*^9, 3.5197826623286505`*^9}, {
   3.5200207810164795`*^9, 3.520020785046485*^9}, {3.5213126833374643`*^9, 
   3.5213126833374643`*^9}, {3.521328235411002*^9, 3.521328235411002*^9}, {
   3.523315567893022*^9, 3.523315567893022*^9}, {3.5233157569332867`*^9, 
   3.5233157613032923`*^9}, {3.5323023198133526`*^9, 3.532302355723403*^9}, {
   3.5323026417638035`*^9, 3.5323026417638035`*^9}, {3.5323026980138817`*^9, 
   3.5323026980138817`*^9}, {3.532636287104328*^9, 3.532636287104328*^9}, {
   3.5330803686035347`*^9, 3.533080368863535*^9}, {3.533248909289961*^9, 
   3.5332489110299635`*^9}, {3.534962469565694*^9, 3.5349624910757236`*^9}, {
   3.5349625224057674`*^9, 3.534962522655768*^9}, {3.534965265519608*^9, 
   3.534965265519608*^9}, {3.5349668288168063`*^9, 3.5349668292668066`*^9}, {
   3.5349747358481646`*^9, 3.5349747358481646`*^9}, {3.534975457949176*^9, 
   3.534975457949176*^9}, {3.5368633963532934`*^9, 3.536863396571694*^9}, {
   3.541644322511304*^9, 3.5416443577513533`*^9}, {3.5416458269234104`*^9, 
   3.541645839633428*^9}, {3.5416460312236967`*^9, 3.541646031483697*^9}, 
   3.541646227783972*^9, {3.541647080335165*^9, 3.5416471077052035`*^9}, {
   3.541648997607849*^9, 3.5416489978278494`*^9}, 3.541649088407976*^9, {
   3.5417848711596775`*^9, 3.541784902429721*^9}, {3.541786145331461*^9, 
   3.5417861455914617`*^9}, {3.5417870037166634`*^9, 3.5417870039366636`*^9}, 
   3.5462979620242105`*^9, {3.546298264094633*^9, 3.546298265344635*^9}, {
   3.546299000235664*^9, 3.546299001505666*^9}, {3.546315119909564*^9, 
   3.5463151267659564`*^9}, {3.547227356319705*^9, 3.547227356319705*^9}, 
   3.547918559331044*^9, {3.547918610170952*^9, 3.5479186304411116`*^9}, 
   3.548537755517557*^9, 3.5485441629685287`*^9, 3.5485517520154133`*^9, {
   3.5488740727887154`*^9, 3.5488740727887154`*^9}, {3.548874206618903*^9, 
   3.548874206808903*^9}, 3.548877100795455*^9, 3.550596464087599*^9, {
   3.5505965767870445`*^9, 3.5505965767870445`*^9}, 3.5505966202465305`*^9, {
   3.5506039138305197`*^9, 3.55060391400453*^9}, {3.5506040039986773`*^9, 
   3.550604005776779*^9}, {3.5506178888272758`*^9, 3.5506178900273447`*^9}, {
   3.5507714128001575`*^9, 3.5507714579237385`*^9}, 3.5507715736503572`*^9, {
   3.550771605757194*^9, 3.550771605757194*^9}, {3.5507784779162593`*^9, 
   3.550778485089669*^9}, {3.5512945755817485`*^9, 3.5512945774348545`*^9}, {
   3.5512950851568947`*^9, 3.551295087206012*^9}, {3.5512951503876257`*^9, 
   3.5512951503876257`*^9}, 3.5521508023707657`*^9, 3.570556429483124*^9, 
   3.570556813913662*^9, {3.570556871323742*^9, 3.5705568726537437`*^9}, {
   3.5705589342766304`*^9, 3.5705589351566315`*^9}, {3.5705726285190425`*^9, 
   3.5705726598690863`*^9}, {3.5705727092291555`*^9, 3.57057271224916*^9}, {
   3.570590818264614*^9, 3.570590830644632*^9}, {3.5705909646248198`*^9, 
   3.5705909676948233`*^9}, {3.5706259368541703`*^9, 
   3.5706259368541703`*^9}, {3.5706261207628937`*^9, 3.5706261259733024`*^9}, 
   3.6219635347757335`*^9, {3.6219636066848464`*^9, 3.6219636066848464`*^9}, 
   3.621963707855633*^9, {3.6219639063569865`*^9, 3.6219639063569865`*^9}, 
   3.621963999584319*^9, {3.621964297837378*^9, 3.621964332188343*^9}, 
   3.621978810333617*^9, {3.702790664787342*^9, 3.702790669151592*^9}, {
   3.702791728371044*^9, 3.702791752929449*^9}, {3.70279180505943*^9, 
   3.7027918059684825`*^9}, {3.702792310843214*^9, 3.7027923216488323`*^9}, {
   3.716146180617201*^9, 3.716146180988222*^9}, 3.716146268281215*^9, 
   3.716147479832512*^9, {3.7161478815074863`*^9, 3.7161478827545576`*^9}, {
   3.716148001980377*^9, 3.7161480022213907`*^9}, {3.7161487310220757`*^9, 
   3.7161487521682854`*^9}, {3.717089552397103*^9, 3.717089555190508*^9}, {
   3.7170897080711775`*^9, 3.7170897080711775`*^9}, 3.7170897786372595`*^9, {
   3.7170898316912937`*^9, 3.717089849503313*^9}, {3.7170903615068755`*^9, 
   3.717090366046135*^9}, {3.7170908333901424`*^9, 3.717090837000349*^9}, {
   3.7170933189428363`*^9, 3.7170933815839467`*^9}, 3.717093582645501*^9, {
   3.7170938977690077`*^9, 3.7170939070062246`*^9}, {3.7170968317616477`*^9, 
   3.7170968334776506`*^9}, {3.7171025150267463`*^9, 3.7171025216275578`*^9}, 
   3.717102558113423*^9, {3.717631877768054*^9, 3.717631877998067*^9}, {
   3.717638713072011*^9, 3.7176387132230196`*^9}, {3.7177017897031126`*^9, 
   3.717701789899124*^9}, {3.7177352608576655`*^9, 3.7177352611366816`*^9}, {
   3.717819826023097*^9, 3.7178198262431097`*^9}, {3.7178832164929333`*^9, 
   3.71788324510557*^9}, {3.7178833260191975`*^9, 3.7178833586220627`*^9}, {
   3.717883444648983*^9, 3.717883468831366*^9}, {3.7178849177682405`*^9, 
   3.717884926823758*^9}, {3.7178849924715133`*^9, 3.7178849924715133`*^9}, {
   3.7178850271264954`*^9, 3.7178850321787844`*^9}, {3.71788576640978*^9, 
   3.717885777916438*^9}, {3.7178862048408566`*^9, 3.717886205019867*^9}, 
   3.7179642461222153`*^9, {3.7179642934709234`*^9, 3.717964295634047*^9}, {
   3.717964345653908*^9, 3.7179643459389243`*^9}, {3.717964716630127*^9, 
   3.717964717691187*^9}, {3.7179647846400166`*^9, 3.7179647851190443`*^9}, {
   3.7179648570291567`*^9, 3.7179648572351685`*^9}, {3.71796899298572*^9, 
   3.71796899839703*^9}, {3.7179798439062724`*^9, 3.717979845644372*^9}, {
   3.7239452586235895`*^9, 3.7239452874052353`*^9}, {3.7239455589577675`*^9, 
   3.7239455606438637`*^9}, 3.723945821764799*^9, 3.74612069676534*^9},
 FontSize->12,
 FontWeight->"Bold"],

Cell[TextData[{
 "Rule: If  ",
 Cell[BoxData[
  RowBox[{"q", "<", 
   RowBox[{"-", "1"}]}]]],
 ", then"
}], "Subsubsection",
 CellDingbat->"\[FilledSmallSquare]",
 CellChangeTimes->{{3.4794189093216*^9, 3.479418932274605*^9}, {
   3.479418981395237*^9, 3.4794189822564754`*^9}, {3.4794192068193808`*^9, 
   3.4794192077607346`*^9}, 3.479420089138093*^9, {3.479420130978256*^9, 
   3.4794201410627565`*^9}, {3.479420560345656*^9, 3.479420578171288*^9}, {
   3.479420683943381*^9, 3.4794206847645617`*^9}, {3.4794210347678413`*^9, 
   3.4794210503903055`*^9}, 3.4803613662913427`*^9, {3.480361406058525*^9, 
   3.48036141974821*^9}, {3.4803614672865667`*^9, 3.480361474717252*^9}, 
   3.48070534977779*^9, {3.4928296953212276`*^9, 3.492829707041244*^9}, 
   3.4941724084687696`*^9, 3.4941724567488375`*^9, 3.494172783029294*^9, {
   3.495162076203082*^9, 3.495162102707529*^9}, {3.495162264932214*^9, 
   3.495162277318636*^9}, {3.4951624969202213`*^9, 3.495162512208248*^9}, {
   3.4951627568718786`*^9, 3.4951627903339376`*^9}, {3.5507715824428606`*^9, 
   3.5507715974747205`*^9}, {3.551295058972397*^9, 3.5512950662198114`*^9}, {
   3.5706259391161747`*^9, 3.5706259391161747`*^9}, {3.5706261448181353`*^9, 
   3.5706261448181353`*^9}, {3.621963609569011*^9, 3.621963609569011*^9}, {
   3.621964345495104*^9, 3.621964345495104*^9}, {3.7027917306691756`*^9, 
   3.7027917537684965`*^9}, {3.7027918067845287`*^9, 3.702791806785529*^9}, {
   3.7027923275021667`*^9, 3.7027923275021667`*^9}, {3.7161478893629355`*^9, 
   3.7161478893629355`*^9}, {3.7161487602327466`*^9, 
   3.7161487602327466`*^9}, {3.7170897093035793`*^9, 
   3.7170897093035793`*^9}, {3.717089858854848*^9, 3.717089858854848*^9}, {
   3.7170904424085026`*^9, 3.7170904424085026`*^9}, {3.7170939135114355`*^9, 
   3.7170939135114355`*^9}, {3.7178835901923075`*^9, 
   3.7178835901923075`*^9}, {3.7178849988128757`*^9, 
   3.7178849988128757`*^9}, {3.71788518385246*^9, 3.7178851865096116`*^9}, {
   3.7178857825447025`*^9, 3.7178857825447025`*^9}, {3.7179643317771144`*^9, 
   3.7179643317771144`*^9}, {3.7179648190979877`*^9, 
   3.7179648195330124`*^9}, {3.71796900363933*^9, 3.7179690184511766`*^9}, {
   3.723945407628112*^9, 3.7239454126904016`*^9}, {3.7239455861423225`*^9, 
   3.7239455861423225`*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{"\[Integral]", 
   RowBox[{
    SuperscriptBox[
     RowBox[{"(", 
      RowBox[{"d", "+", 
       RowBox[{"e", " ", 
        SuperscriptBox["x", "2"]}]}], ")"}], "q"], " ", 
    RowBox[{"(", 
     RowBox[{"a", "+", 
      RowBox[{"b", " ", 
       RowBox[{"Log", "[", 
        RowBox[{"c", " ", 
         SuperscriptBox["x", "n"]}], "]"}]}]}], ")"}], 
    RowBox[{"\[DifferentialD]", 
     RowBox[{"x", "  ", "\[LongRightArrow]", "  ", 
      RowBox[{"-", 
       FractionBox[
        RowBox[{"x", " ", 
         SuperscriptBox[
          RowBox[{"(", 
           RowBox[{"d", "+", 
            RowBox[{"e", " ", 
             SuperscriptBox["x", "2"]}]}], ")"}], 
          RowBox[{"q", "+", "1"}]], " ", 
         RowBox[{"(", 
          RowBox[{"a", "+", 
           RowBox[{"b", " ", 
            RowBox[{"Log", "[", 
             RowBox[{"c", " ", 
              SuperscriptBox["x", "n"]}], "]"}]}]}], ")"}]}], 
        RowBox[{"2", " ", "d", " ", 
         RowBox[{"(", 
          RowBox[{"q", "+", "1"}], ")"}]}]]}]}]}]}]}], "+", 
  RowBox[{
   FractionBox[
    RowBox[{"b", " ", "n"}], 
    RowBox[{"2", " ", "d", " ", 
     RowBox[{"(", 
      RowBox[{"q", "+", "1"}], ")"}]}]], " ", 
   RowBox[{"\[Integral]", 
    RowBox[{
     SuperscriptBox[
      RowBox[{"(", 
       RowBox[{"d", "+", 
        RowBox[{"e", " ", 
         SuperscriptBox["x", "2"]}]}], ")"}], 
      RowBox[{"q", "+", "1"}]], 
     RowBox[{"\[DifferentialD]", "x"}]}]}]}], "+", 
  RowBox[{
   FractionBox[
    RowBox[{
     RowBox[{"2", " ", "q"}], "+", "3"}], 
    RowBox[{"2", " ", "d", " ", 
     RowBox[{"(", 
      RowBox[{"q", "+", "1"}], ")"}]}]], " ", 
   RowBox[{"\[Integral]", 
    RowBox[{
     SuperscriptBox[
      RowBox[{"(", 
       RowBox[{"d", "+", 
        RowBox[{"e", " ", 
         SuperscriptBox["x", "2"]}]}], ")"}], 
      RowBox[{"q", "+", "1"}]], " ", 
     RowBox[{"(", 
      RowBox[{"a", "+", 
       RowBox[{"b", " ", 
        RowBox[{"Log", "[", 
         RowBox[{"c", " ", 
          SuperscriptBox["x", "n"]}], "]"}]}]}], ")"}], 
     RowBox[{"\[DifferentialD]", "x"}]}]}]}]}]], "Subsubtitle",
 CellDingbat->None,
 CellChangeTimes->{{3.4796579732027807`*^9, 3.479658002474872*^9}, {
   3.4796580599975853`*^9, 3.4796580609489536`*^9}, {3.479658295195784*^9, 
   3.47965829684816*^9}, 3.4796611938939075`*^9, 3.4796613924794593`*^9, {
   3.479661443342597*^9, 3.479661446647349*^9}, {3.479661576554146*^9, 
   3.479661589302477*^9}, 3.479661847553824*^9, {3.4796622294729967`*^9, 
   3.4796622450654173`*^9}, {3.479686720424531*^9, 3.4796867204345455`*^9}, {
   3.4796874646646957`*^9, 3.4796874745589232`*^9}, {3.492826573513727*^9, 
   3.492826578630536*^9}, {3.4928267070863624`*^9, 3.492826707460763*^9}, 
   3.4928267903497095`*^9, {3.492829799151373*^9, 3.4928299617216005`*^9}, {
   3.4940972077187414`*^9, 3.4940972347887793`*^9}, {3.49409966398218*^9, 
   3.494099664952181*^9}, {3.4940997156722527`*^9, 3.494099716112253*^9}, 
   3.4941724567488375`*^9, {3.4941727384192314`*^9, 3.494172760679263*^9}, {
   3.495161485476845*^9, 3.4951615041032777`*^9}, 3.4951622258697453`*^9, 
   3.4951623402647467`*^9, 3.4951624589029546`*^9, {3.4951625764731617`*^9, 
   3.4951626064252143`*^9}, {3.4951628369780197`*^9, 
   3.4951628486156397`*^9}, {3.495162963603442*^9, 3.495162975147462*^9}, {
   3.4953186997347507`*^9, 3.49531874939482*^9}, {3.51595528804482*^9, 
   3.515955297467236*^9}, {3.5159554395714855`*^9, 3.5159554418334894`*^9}, {
   3.551294210163848*^9, 3.5512942133650312`*^9}, {3.5706258947184963`*^9, 
   3.57062591381293*^9}, {3.5706259678514247`*^9, 3.5706260736664104`*^9}, {
   3.570626196407426*^9, 3.570626203006238*^9}, {3.621963535689786*^9, 
   3.6219635366098385`*^9}, {3.621963590753935*^9, 3.6219636139572625`*^9}, 
   3.6219637084396667`*^9, {3.6219640002973595`*^9, 3.6219640436238375`*^9}, {
   3.6219643858204107`*^9, 3.6219644419626217`*^9}, {3.7027917317312365`*^9, 
   3.7027917562446384`*^9}, {3.70279180767458*^9, 3.7027918097967014`*^9}, {
   3.71614789100803*^9, 3.716147892972142*^9}, {3.716153844907136*^9, 
   3.7161538673254185`*^9}, {3.71708978773378*^9, 3.7170897955752287`*^9}, {
   3.7170911829391465`*^9, 3.717091197547982*^9}, {3.7170922197397356`*^9, 
   3.717092224918945*^9}, {3.71709359895553*^9, 3.7170936722322598`*^9}, {
   3.7171025583318233`*^9, 3.7171025583474236`*^9}, {3.717883519794281*^9, 
   3.717883562737737*^9}, 3.7178837350555935`*^9, {3.7178838156592035`*^9, 
   3.7178838423597307`*^9}, 3.7178839278516207`*^9, {3.7178839635326614`*^9, 
   3.7178839775684643`*^9}, {3.7178840237061033`*^9, 
   3.7178840240981255`*^9}, {3.7178850398812246`*^9, 3.717885050180814*^9}, {
   3.7178851351516743`*^9, 3.717885135451691*^9}, {3.7178854674886827`*^9, 
   3.717885502253671*^9}, {3.717964248849371*^9, 3.717964279066099*^9}, 
   3.717964381321948*^9, {3.717969043409604*^9, 3.717969043617616*^9}, {
   3.723945323271287*^9, 3.723945333570876*^9}, 3.723945573899622*^9, {
   3.723945953895357*^9, 3.723945955715461*^9}},
 TextAlignment->Center,
 FontSize->12,
 FontWeight->"Bold"],

Cell["Program code:", "Subsubsection",
 CellDingbat->"\[FilledSmallSquare]",
 CellChangeTimes->{{3.4794189093216*^9, 3.479418932274605*^9}, {
   3.479418981395237*^9, 3.4794189822564754`*^9}, {3.4794192068193808`*^9, 
   3.4794192077607346`*^9}, 3.479420089138093*^9, {3.479420130978256*^9, 
   3.4794201410627565`*^9}, {3.479420560345656*^9, 3.479420578171288*^9}, {
   3.479420683943381*^9, 3.4794206847645617`*^9}, {3.4794210347678413`*^9, 
   3.4794210503903055`*^9}, 3.4803613662913427`*^9, {3.480361406058525*^9, 
   3.48036141974821*^9}, {3.4803614672865667`*^9, 3.480361474717252*^9}, 
   3.4807050675119123`*^9, {3.492804314166378*^9, 3.4928043441496305`*^9}, {
   3.4928044532166224`*^9, 3.492804453513023*^9}, {3.492805162266266*^9, 
   3.492805165713872*^9}, 3.4941724567488375`*^9}],

Cell[BoxData[
 RowBox[{
  RowBox[{"Int", "[", 
   RowBox[{
    RowBox[{
     RowBox[{
      RowBox[{"(", 
       RowBox[{"d_", "+", 
        RowBox[{"e_.", "*", 
         RowBox[{"x_", "^", "2"}]}]}], ")"}], "^", "q_"}], "*", 
     RowBox[{"(", 
      RowBox[{"a_.", "+", 
       RowBox[{"b_.", "*", 
        RowBox[{"Log", "[", 
         RowBox[{"c_.", "*", 
          RowBox[{"x_", "^", "n_."}]}], "]"}]}]}], ")"}]}], ",", "x_Symbol"}],
    "]"}], " ", ":=", "\n", "  ", 
  RowBox[{
   RowBox[{
    RowBox[{
     RowBox[{"-", "x"}], "*", 
     RowBox[{
      RowBox[{"(", 
       RowBox[{"d", "+", 
        RowBox[{"e", "*", 
         RowBox[{"x", "^", "2"}]}]}], ")"}], "^", 
      RowBox[{"(", 
       RowBox[{"q", "+", "1"}], ")"}]}], "*", 
     RowBox[{
      RowBox[{"(", 
       RowBox[{"a", "+", 
        RowBox[{"b", "*", 
         RowBox[{"Log", "[", 
          RowBox[{"c", "*", 
           RowBox[{"x", "^", "n"}]}], "]"}]}]}], ")"}], "/", 
      RowBox[{"(", 
       RowBox[{"2", "*", "d", "*", 
        RowBox[{"(", 
         RowBox[{"q", "+", "1"}], ")"}]}], ")"}]}]}], " ", "+", " ", 
    "\[IndentingNewLine]", "  ", 
    RowBox[{"b", "*", 
     RowBox[{"n", "/", 
      RowBox[{"(", 
       RowBox[{"2", "*", "d", "*", 
        RowBox[{"(", 
         RowBox[{"q", "+", "1"}], ")"}]}], ")"}]}], "*", 
     RowBox[{"Int", "[", 
      RowBox[{
       RowBox[{
        RowBox[{"(", 
         RowBox[{"d", "+", 
          RowBox[{"e", "*", 
           RowBox[{"x", "^", "2"}]}]}], ")"}], "^", 
        RowBox[{"(", 
         RowBox[{"q", "+", "1"}], ")"}]}], ",", "x"}], "]"}]}], " ", "+", " ",
     "\n", "  ", 
    RowBox[{
     RowBox[{
      RowBox[{"(", 
       RowBox[{
        RowBox[{"2", "*", "q"}], "+", "3"}], ")"}], "/", 
      RowBox[{"(", 
       RowBox[{"2", "*", "d", "*", 
        RowBox[{"(", 
         RowBox[{"q", "+", "1"}], ")"}]}], ")"}]}], "*", 
     RowBox[{"Int", "[", 
      RowBox[{
       RowBox[{
        RowBox[{
         RowBox[{"(", 
          RowBox[{"d", "+", 
           RowBox[{"e", "*", 
            RowBox[{"x", "^", "2"}]}]}], ")"}], "^", 
         RowBox[{"(", 
          RowBox[{"q", "+", "1"}], ")"}]}], "*", 
        RowBox[{"(", 
         RowBox[{"a", "+", 
          RowBox[{"b", "*", 
           RowBox[{"Log", "[", 
            RowBox[{"c", "*", 
             RowBox[{"x", "^", "n"}]}], "]"}]}]}], ")"}]}], ",", "x"}], 
      "]"}]}]}], " ", "/;", "\n", 
   RowBox[{
    RowBox[{"FreeQ", "[", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{"a", ",", "b", ",", "c", ",", "d", ",", "e", ",", "n"}], "}"}],
       ",", "x"}], "]"}], " ", "&&", " ", 
    RowBox[{"LtQ", "[", 
     RowBox[{"q", ",", 
      RowBox[{"-", "1"}]}], "]"}]}]}]}]], "Code",
 CellChangeTimes->{{3.494097279728842*^9, 3.494097309778884*^9}, {
   3.494099665582182*^9, 3.4940996672021847`*^9}, {3.4940997193022575`*^9, 
   3.494099719662258*^9}, 3.4941724567488375`*^9, 3.494172717389202*^9, 
   3.495161451843186*^9, 3.4951616878092003`*^9, 3.495162292263462*^9, 
   3.49516247887099*^9, 3.4951626919289646`*^9, 3.4951627504134674`*^9, 
   3.548733189244907*^9, 3.5487333497590876`*^9, {3.5512944878287296`*^9, 
   3.551294495263155*^9}, {3.551295101626837*^9, 3.5512951328186207`*^9}, {
   3.551295559331016*^9, 3.5512955650673437`*^9}, {3.5512971853300176`*^9, 
   3.5512971906853237`*^9}, {3.5512974190273843`*^9, 
   3.5512974239016633`*^9}, {3.5706262613191404`*^9, 
   3.5706262756867657`*^9}, {3.5706263647629223`*^9, 
   3.5706263775393443`*^9}, {3.57062648903274*^9, 3.5706265180175915`*^9}, {
   3.5709206646650977`*^9, 3.570920665995099*^9}, {3.5709207045951533`*^9, 
   3.5709207315751915`*^9}, {3.6219073135736685`*^9, 3.621907339923176*^9}, 
   3.6219075185103903`*^9, {3.6219075896854615`*^9, 3.621907603168233*^9}, {
   3.621963623637816*^9, 3.6219636248208838`*^9}, 3.621963764418868*^9, {
   3.621963845338496*^9, 3.6219638661946898`*^9}, {3.621964091441573*^9, 
   3.6219640960838385`*^9}, {3.6219641333489695`*^9, 
   3.6219641560752697`*^9}, {3.6219646436721587`*^9, 3.621964657890972*^9}, 
   3.621964721611616*^9, {3.6219745734062786`*^9, 3.6219745974996567`*^9}, {
   3.7027917362734957`*^9, 3.7027917608148994`*^9}, {3.7027918122318406`*^9, 
   3.7027918187672143`*^9}, {3.7027923914578247`*^9, 3.702792398659237*^9}, {
   3.7027924313881087`*^9, 3.702792439727586*^9}, {3.7161454735057564`*^9, 
   3.716145477852005*^9}, {3.716147897641409*^9, 3.7161479049908295`*^9}, {
   3.7161480052225623`*^9, 3.7161480077867093`*^9}, 3.7161486937069416`*^9, {
   3.7161487353143215`*^9, 3.716148738200486*^9}, 3.717089738357956*^9, {
   3.7170899085946927`*^9, 3.7170899336641264`*^9}, {3.7170900284394374`*^9, 
   3.7170900336498466`*^9}, {3.7170900937249017`*^9, 3.7170900968293076`*^9},
    {3.71709040808854*^9, 3.7170904301308007`*^9}, {3.7170908960575066`*^9, 
   3.7170908985399113`*^9}, {3.7170912112947683`*^9, 
   3.7170912303848605`*^9}, {3.717092249662588*^9, 3.717092257415802*^9}, 
   3.717092645991087*^9, {3.717093684199481*^9, 3.7170937043557167`*^9}, {
   3.7170937444193373`*^9, 3.717093752593752*^9}, {3.717093828043485*^9, 
   3.71709387080916*^9}, {3.717095411460695*^9, 3.7170954259349213`*^9}, {
   3.7170955229594917`*^9, 3.717095555907936*^9}, 3.717097286640851*^9, {
   3.71788406525548*^9, 3.7178841788899794`*^9}, {3.717884245218773*^9, 
   3.717884270587224*^9}, 3.717884316604856*^9, {3.7178849037924414`*^9, 
   3.717884910431821*^9}, {3.7178853956135716`*^9, 3.717885452487825*^9}, {
   3.717885537097664*^9, 3.717885538902767*^9}, {3.717885571091608*^9, 
   3.7178857157998853`*^9}, 3.717885901453504*^9, {3.717964370955355*^9, 
   3.717964372031417*^9}, {3.7179644152148867`*^9, 3.717964471691117*^9}, {
   3.717966830983061*^9, 3.717966831598096*^9}, {3.717969087759141*^9, 
   3.7179691024729824`*^9}, {3.723668377837527*^9, 3.723668452657632*^9}, {
   3.723668677677947*^9, 3.7236686839679556`*^9}, 3.7236687204680066`*^9, {
   3.723668788118101*^9, 3.7236687931581087`*^9}, 3.723749301696486*^9, 
   3.723945427925273*^9, {3.723945495070113*^9, 3.7239455155662856`*^9}, {
   3.7239455883644495`*^9, 3.723945591238614*^9}, {3.723945623934484*^9, 
   3.7239456295478053`*^9}, 3.723945758682191*^9, 3.723950489055752*^9},
 Background->GrayLevel[0.85]],

Cell["", "Subsubsection",
 CellDingbat->None,
 CellChangeTimes->{3.4796643211106243`*^9, 3.4941724567488375`*^9}]
}, Closed]]
}, Closed]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"\t", 
  RowBox[{Cell[TextData[StyleBox["3:",
    FontFamily->"Arial",
    FontColor->RGBColor[1, 0, 0]]], "None"], "  ", 
   RowBox[{"\[Integral]", 
    RowBox[{
     FractionBox[
      RowBox[{"a", "+", 
       RowBox[{"b", " ", 
        RowBox[{"Log", "[", 
         RowBox[{"c", " ", 
          SuperscriptBox["x", "n"]}], "]"}]}]}], 
      RowBox[{"d", "+", 
       RowBox[{"e", " ", 
        SuperscriptBox["x", "2"]}]}]], 
     RowBox[{"\[DifferentialD]", "x"}]}]}]}]}]], "Subsubtitle",
 CellDingbat->None,
 CellChangeTimes->{
  3.477935275784027*^9, {3.477935350060832*^9, 3.477935352384173*^9}, {
   3.477935393803731*^9, 3.477935400102789*^9}, {3.477935515378547*^9, 
   3.47793552034569*^9}, 3.478120029940968*^9, {3.479318860690858*^9, 
   3.47931886615872*^9}, {3.4794185033278093`*^9, 3.479418503918659*^9}, 
   3.4795122294117584`*^9, {3.479615913307893*^9, 3.4796159352794867`*^9}, 
   3.4796160386581373`*^9, 3.4796867204045024`*^9, {3.4928025699585147`*^9, 
   3.492802570130115*^9}, 3.492822274480175*^9, 3.492825822242408*^9, {
   3.4940970615585365`*^9, 3.494097062168537*^9}, {3.496441349250718*^9, 
   3.496441349830719*^9}, 3.4964414848609076`*^9, 3.496521708137803*^9, {
   3.4965218981240697`*^9, 3.49652189838407*^9}, 3.4965229070755*^9, 
   3.519247079685614*^9, {3.5193208582062006`*^9, 3.5193208612170057`*^9}, 
   3.5193325694253187`*^9, {3.5193422443984776`*^9, 3.5193422447260776`*^9}, 
   3.5193424488212357`*^9, {3.5193434708254333`*^9, 3.519343473103037*^9}, {
   3.5193435097631016`*^9, 3.51934353169674*^9}, {3.519345739319023*^9, 
   3.519345739599823*^9}, 3.5193462601259375`*^9, {3.5193475061060295`*^9, 
   3.5193475233908596`*^9}, {3.519351391880224*^9, 3.5193513931402254`*^9}, {
   3.519403773021052*^9, 3.5194037798564425`*^9}, 3.5194106793250647`*^9, {
   3.519537578341393*^9, 3.5195375792305946`*^9}, {3.5195376277778797`*^9, 
   3.51953767927357*^9}, {3.5197586260636144`*^9, 3.5197586260636144`*^9}, {
   3.51978053295651*^9, 3.519780542862528*^9}, {3.5197806526087203`*^9, 
   3.5197806657595434`*^9}, {3.5197807490168896`*^9, 3.5197807642581167`*^9}, 
   3.5197809004619555`*^9, {3.519782653514635*^9, 3.5197826623286505`*^9}, {
   3.5200207810164795`*^9, 3.520020785046485*^9}, {3.5213126833374643`*^9, 
   3.5213126833374643`*^9}, {3.521328235411002*^9, 3.521328235411002*^9}, {
   3.523315567893022*^9, 3.523315567893022*^9}, {3.5233157569332867`*^9, 
   3.5233157613032923`*^9}, {3.5323023198133526`*^9, 3.532302355723403*^9}, {
   3.5323026417638035`*^9, 3.5323026417638035`*^9}, {3.5323026980138817`*^9, 
   3.5323026980138817`*^9}, {3.532636287104328*^9, 3.532636287104328*^9}, {
   3.5330803686035347`*^9, 3.533080368863535*^9}, {3.533248909289961*^9, 
   3.5332489110299635`*^9}, {3.534962469565694*^9, 3.5349624910757236`*^9}, {
   3.5349625224057674`*^9, 3.534962522655768*^9}, {3.534965265519608*^9, 
   3.534965265519608*^9}, {3.5349668288168063`*^9, 3.5349668292668066`*^9}, {
   3.5349747358481646`*^9, 3.5349747358481646`*^9}, {3.534975457949176*^9, 
   3.534975457949176*^9}, {3.5368633963532934`*^9, 3.536863396571694*^9}, {
   3.541644322511304*^9, 3.5416443577513533`*^9}, {3.5416458269234104`*^9, 
   3.541645839633428*^9}, {3.5416460312236967`*^9, 3.541646031483697*^9}, 
   3.541646227783972*^9, {3.541647080335165*^9, 3.5416471077052035`*^9}, {
   3.541648997607849*^9, 3.5416489978278494`*^9}, 3.541649088407976*^9, {
   3.5417848711596775`*^9, 3.541784902429721*^9}, {3.541786145331461*^9, 
   3.5417861455914617`*^9}, {3.5417870037166634`*^9, 3.5417870039366636`*^9}, 
   3.5462979620242105`*^9, {3.546298264094633*^9, 3.546298265344635*^9}, {
   3.546299000235664*^9, 3.546299001505666*^9}, {3.546315119909564*^9, 
   3.5463151267659564`*^9}, {3.547227356319705*^9, 3.547227356319705*^9}, 
   3.547918559331044*^9, {3.547918610170952*^9, 3.5479186304411116`*^9}, 
   3.548537755517557*^9, 3.5485441629685287`*^9, 3.5485517520154133`*^9, {
   3.5488740727887154`*^9, 3.5488740727887154`*^9}, {3.548874206618903*^9, 
   3.548874206808903*^9}, 3.548877100795455*^9, 3.550596464087599*^9, {
   3.5505965767870445`*^9, 3.5505965767870445`*^9}, 3.5505966202465305`*^9, {
   3.5506039138305197`*^9, 3.55060391400453*^9}, {3.5506040039986773`*^9, 
   3.550604005776779*^9}, {3.5506178888272758`*^9, 3.5506178900273447`*^9}, {
   3.5506192681491685`*^9, 3.550619293563622*^9}, {3.5506195305301757`*^9, 
   3.550619538392626*^9}, 3.5508113633281665`*^9, {3.5508114161671886`*^9, 
   3.550811419328369*^9}, {3.5508116260871954`*^9, 3.5508116269802465`*^9}, {
   3.550811741020769*^9, 3.550811744393962*^9}, {3.5508130184278326`*^9, 
   3.5508130394230337`*^9}, {3.550850981139574*^9, 3.5508510096172028`*^9}, {
   3.5508511357854195`*^9, 3.5508511357854195`*^9}, 3.5513087127028403`*^9, {
   3.551326409634145*^9, 3.5513264112742386`*^9}, {3.5516384008854237`*^9, 
   3.551638414675848*^9}, {3.5516384656099377`*^9, 3.5516384656099377`*^9}, {
   3.5516386768187084`*^9, 3.5516386776455097`*^9}, {3.551638832084979*^9, 
   3.5516388370769873`*^9}, {3.5518228900107107`*^9, 
   3.5518228910507116`*^9}, {3.572980490850006*^9, 3.572980491021606*^9}, {
   3.572980530318075*^9, 3.5729805522361135`*^9}, {3.5729893327183666`*^9, 
   3.5729893345383687`*^9}, 3.5729902100015955`*^9, {3.6224158544448833`*^9, 
   3.6224158563939953`*^9}, 3.6224163822360716`*^9, {3.622416596311316*^9, 
   3.622416601326603*^9}, {3.622416653995615*^9, 3.622416666803348*^9}, {
   3.6224174519962587`*^9, 3.622417469260246*^9}, {3.6224175047112737`*^9, 
   3.6224175047112737`*^9}, 3.622420414486703*^9, 3.7177361689166036`*^9, {
   3.7177362597958016`*^9, 3.7177362597958016`*^9}, 3.7179747162549877`*^9, 
   3.7179747836888447`*^9, 3.7179753281269846`*^9, {3.71797539098558*^9, 
   3.71797539098558*^9}, {3.717976908986405*^9, 3.71797693111567*^9}, 
   3.7179798370338793`*^9, {3.717980360922844*^9, 3.717980394966791*^9}, {
   3.723946529321269*^9, 3.7239465360536547`*^9}, {3.7239479953231187`*^9, 
   3.723948005208684*^9}, 3.7461206972453675`*^9},
 FontSize->12,
 FontWeight->"Bold"],

Cell["Derivation: Integration by parts", "Subsubsection",
 CellDingbat->"\[FilledSmallSquare]",
 CellChangeTimes->{{3.4794189093216*^9, 3.479418932274605*^9}, {
   3.479418981395237*^9, 3.4794189822564754`*^9}, {3.4794192068193808`*^9, 
   3.4794192077607346`*^9}, 3.479420089138093*^9, {3.479420130978256*^9, 
   3.4794201410627565`*^9}, {3.479420560345656*^9, 3.479420578171288*^9}, {
   3.479420683943381*^9, 3.4794206847645617`*^9}, {3.4794210347678413`*^9, 
   3.4794210503903055`*^9}, 3.4803613662913427`*^9, {3.480361406058525*^9, 
   3.48036141974821*^9}, {3.4803614672865667`*^9, 3.480361474717252*^9}, 
   3.48070534977779*^9, {3.4928296953212276`*^9, 3.492829707041244*^9}, 
   3.4941724084687696`*^9, 3.4941724567488375`*^9, 3.494172783029294*^9, {
   3.495162076203082*^9, 3.495162102707529*^9}, {3.495162264932214*^9, 
   3.495162277318636*^9}, {3.4951637747120676`*^9, 3.495163775320469*^9}, {
   3.4951642488437004`*^9, 3.4951642509653044`*^9}, {3.4952360986673346`*^9, 
   3.4952361002073364`*^9}, 3.4952369731885586`*^9, {3.5508109070940714`*^9, 
   3.5508109172036495`*^9}}],

Cell[TextData[{
 "Basis: ",
 Cell[BoxData[
  RowBox[{
   RowBox[{
    SubscriptBox["\[PartialD]", "x"], 
    RowBox[{"(", 
     RowBox[{"a", "+", 
      RowBox[{"b", " ", 
       RowBox[{"Log", "[", 
        RowBox[{"c", " ", 
         SuperscriptBox["x", "n"]}], "]"}]}]}], ")"}]}], "\[Equal]", 
   FractionBox[
    RowBox[{"b", " ", "n"}], "x"]}]],
  CellChangeTimes->{{3.62241803300649*^9, 3.622418050782507*^9}}]
}], "Subsubsection",
 CellDingbat->"\[FilledSmallSquare]",
 CellChangeTimes->{{3.4794189093216*^9, 3.479418932274605*^9}, {
   3.479418981395237*^9, 3.4794189822564754`*^9}, {3.4794192068193808`*^9, 
   3.4794192077607346`*^9}, 3.479420089138093*^9, {3.479420130978256*^9, 
   3.4794201410627565`*^9}, {3.479420560345656*^9, 3.479420578171288*^9}, {
   3.479420683943381*^9, 3.4794206847645617`*^9}, {3.4794210347678413`*^9, 
   3.4794210503903055`*^9}, 3.4803613662913427`*^9, {3.480361406058525*^9, 
   3.48036141974821*^9}, {3.4803614672865667`*^9, 3.480361474717252*^9}, 
   3.48070534977779*^9, {3.4928296953212276`*^9, 3.492829707041244*^9}, 
   3.4941724084687696`*^9, 3.4941724567488375`*^9, 3.494172783029294*^9, {
   3.495162076203082*^9, 3.495162102707529*^9}, {3.495162264932214*^9, 
   3.495162277318636*^9}, {3.4951637747120676`*^9, 3.495163775320469*^9}, {
   3.4951642488437004`*^9, 3.4951642509653044`*^9}, {3.4952360986673346`*^9, 
   3.4952361002073364`*^9}, 3.4952369731885586`*^9, {3.5508109070940714`*^9, 
   3.5508109172036495`*^9}, {3.6224180239349713`*^9, 3.622418025816079*^9}, 
   3.6224180574438877`*^9, {3.7177361881507034`*^9, 3.7177362108320007`*^9}, {
   3.7179747854019423`*^9, 3.7179747854019423`*^9}, {3.717974889115875*^9, 
   3.717974889115875*^9}, {3.7179752671794987`*^9, 3.7179752679645433`*^9}}],

Cell[TextData[{
 "Rule: Let ",
 Cell[BoxData[
  RowBox[{"u", "\[Rule]", 
   RowBox[{"\[Integral]", 
    RowBox[{
     FractionBox["1", 
      RowBox[{"d", "+", 
       RowBox[{"e", " ", 
        SuperscriptBox["x", "2"]}]}]], 
     RowBox[{"\[DifferentialD]", "x"}]}]}]}]],
  CellChangeTimes->{{3.717885142565098*^9, 3.7178851742999134`*^9}}],
 ", then"
}], "Subsubsection",
 CellDingbat->"\[FilledSmallSquare]",
 CellChangeTimes->{{3.4794189093216*^9, 3.479418932274605*^9}, {
   3.479418981395237*^9, 3.4794189822564754`*^9}, {3.4794192068193808`*^9, 
   3.4794192077607346`*^9}, 3.479420089138093*^9, {3.479420130978256*^9, 
   3.4794201410627565`*^9}, {3.479420560345656*^9, 3.479420578171288*^9}, {
   3.479420683943381*^9, 3.4794206847645617`*^9}, {3.4794210347678413`*^9, 
   3.4794210503903055`*^9}, 3.4803613662913427`*^9, {3.480361406058525*^9, 
   3.48036141974821*^9}, {3.4803614672865667`*^9, 3.480361474717252*^9}, 
   3.48070534977779*^9, {3.4928296953212276`*^9, 3.492829707041244*^9}, 
   3.4941724084687696`*^9, 3.4941724567488375`*^9, 3.494172783029294*^9, {
   3.495162076203082*^9, 3.495162102707529*^9}, {3.495162264932214*^9, 
   3.495162277318636*^9}, {3.4951624969202213`*^9, 3.495162512208248*^9}, {
   3.4951627568718786`*^9, 3.4951627903339376`*^9}, {3.5507715824428606`*^9, 
   3.5507715974747205`*^9}, {3.551295058972397*^9, 3.5512950662198114`*^9}, {
   3.5706259391161747`*^9, 3.5706259391161747`*^9}, {3.5706261448181353`*^9, 
   3.5706261448181353`*^9}, {3.621963609569011*^9, 3.621963609569011*^9}, {
   3.621964345495104*^9, 3.621964345495104*^9}, {3.7027917306691756`*^9, 
   3.7027917537684965`*^9}, {3.7027918067845287`*^9, 3.702791806785529*^9}, {
   3.7027923275021667`*^9, 3.7027923275021667`*^9}, {3.7161478893629355`*^9, 
   3.7161478893629355`*^9}, {3.7161487602327466`*^9, 
   3.7161487602327466`*^9}, {3.7170897093035793`*^9, 
   3.7170897093035793`*^9}, {3.717089858854848*^9, 3.717089858854848*^9}, {
   3.7170904424085026`*^9, 3.7170904424085026`*^9}, {3.7170939135114355`*^9, 
   3.7170939135114355`*^9}, {3.7178835901923075`*^9, 
   3.7178835901923075`*^9}, {3.7178849988128757`*^9, 
   3.7178849988128757`*^9}, {3.71788518385246*^9, 3.7178851865096116`*^9}, {
   3.7178857825447025`*^9, 3.7178857825447025`*^9}, {3.7179643317771144`*^9, 
   3.7179643317771144`*^9}, {3.7179648190979877`*^9, 
   3.7179648195330124`*^9}, {3.71796900363933*^9, 3.7179690184511766`*^9}, {
   3.724113587166132*^9, 3.724113604079099*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{"\[Integral]", 
   RowBox[{
    FractionBox[
     RowBox[{"a", "+", 
      RowBox[{"b", " ", 
       RowBox[{"Log", "[", 
        RowBox[{"c", " ", 
         SuperscriptBox["x", "n"]}], "]"}]}]}], 
     RowBox[{"d", "+", 
      RowBox[{"e", " ", 
       SuperscriptBox["x", "2"]}]}]], 
    RowBox[{"\[DifferentialD]", 
     RowBox[{"x", "  ", "\[LongRightArrow]", "  ", "u"}]}], " ", 
    RowBox[{"(", 
     RowBox[{"a", "+", 
      RowBox[{"b", " ", 
       RowBox[{"Log", "[", 
        RowBox[{"c", " ", 
         SuperscriptBox["x", "n"]}], "]"}]}]}], ")"}]}]}], "-", 
  RowBox[{"b", " ", "n", " ", 
   RowBox[{"\[Integral]", 
    RowBox[{
     FractionBox["u", "x"], 
     RowBox[{"\[DifferentialD]", "x"}]}]}]}]}]], "Subsubtitle",
 CellDingbat->None,
 CellChangeTimes->{{3.4796579732027807`*^9, 3.479658002474872*^9}, {
   3.4796580599975853`*^9, 3.4796580609489536`*^9}, {3.479658295195784*^9, 
   3.47965829684816*^9}, 3.4796611938939075`*^9, 3.4796613924794593`*^9, {
   3.479661443342597*^9, 3.479661446647349*^9}, {3.479661576554146*^9, 
   3.479661589302477*^9}, 3.479661847553824*^9, {3.4796622294729967`*^9, 
   3.4796622450654173`*^9}, {3.479686720424531*^9, 3.4796867204345455`*^9}, {
   3.4796874646646957`*^9, 3.4796874745589232`*^9}, {3.492826573513727*^9, 
   3.492826578630536*^9}, {3.4928267070863624`*^9, 3.492826707460763*^9}, 
   3.4928267903497095`*^9, {3.492829799151373*^9, 3.4928299617216005`*^9}, {
   3.4940972077187414`*^9, 3.4940972347887793`*^9}, {3.49409966398218*^9, 
   3.494099664952181*^9}, {3.4940997156722527`*^9, 3.494099716112253*^9}, 
   3.4941724567488375`*^9, {3.4941727384192314`*^9, 3.494172760679263*^9}, {
   3.495161485476845*^9, 3.4951615041032777`*^9}, 3.4951622258697453`*^9, 
   3.4951623402647467`*^9, 3.4951624589029546`*^9, {3.4951625764731617`*^9, 
   3.4951626064252143`*^9}, {3.4951628369780197`*^9, 
   3.4951628486156397`*^9}, {3.495162963603442*^9, 3.495162975147462*^9}, {
   3.4953186997347507`*^9, 3.49531874939482*^9}, {3.51595528804482*^9, 
   3.515955297467236*^9}, {3.5159554395714855`*^9, 3.5159554418334894`*^9}, {
   3.551294210163848*^9, 3.5512942133650312`*^9}, {3.5706258947184963`*^9, 
   3.57062591381293*^9}, {3.5706259678514247`*^9, 3.5706260736664104`*^9}, {
   3.570626196407426*^9, 3.570626203006238*^9}, {3.621963535689786*^9, 
   3.6219635366098385`*^9}, {3.621963590753935*^9, 3.6219636139572625`*^9}, 
   3.6219637084396667`*^9, {3.6219640002973595`*^9, 3.6219640436238375`*^9}, {
   3.6219643858204107`*^9, 3.6219644419626217`*^9}, {3.7027917317312365`*^9, 
   3.7027917562446384`*^9}, {3.70279180767458*^9, 3.7027918097967014`*^9}, {
   3.71614789100803*^9, 3.716147892972142*^9}, {3.716153844907136*^9, 
   3.7161538673254185`*^9}, {3.71708978773378*^9, 3.7170897955752287`*^9}, {
   3.7170911829391465`*^9, 3.717091197547982*^9}, {3.7170922197397356`*^9, 
   3.717092224918945*^9}, {3.71709359895553*^9, 3.7170936722322598`*^9}, {
   3.7171025583318233`*^9, 3.7171025583474236`*^9}, {3.717883519794281*^9, 
   3.717883562737737*^9}, 3.7178837350555935`*^9, {3.7178838156592035`*^9, 
   3.7178838423597307`*^9}, 3.7178839278516207`*^9, {3.7178839635326614`*^9, 
   3.7178839775684643`*^9}, {3.7178840237061033`*^9, 
   3.7178840240981255`*^9}, {3.7178850398812246`*^9, 3.717885050180814*^9}, {
   3.7178851351516743`*^9, 3.717885135451691*^9}, {3.7178854674886827`*^9, 
   3.717885502253671*^9}, {3.717964248849371*^9, 3.717964279066099*^9}, 
   3.717964381321948*^9, {3.717969043409604*^9, 3.717969043617616*^9}, 
   3.7241135511580725`*^9},
 TextAlignment->Center,
 FontSize->12,
 FontWeight->"Bold"],

Cell["Program code:", "Subsubsection",
 CellDingbat->"\[FilledSmallSquare]",
 CellChangeTimes->{{3.4794189093216*^9, 3.479418932274605*^9}, {
   3.479418981395237*^9, 3.4794189822564754`*^9}, {3.4794192068193808`*^9, 
   3.4794192077607346`*^9}, 3.479420089138093*^9, {3.479420130978256*^9, 
   3.4794201410627565`*^9}, {3.479420560345656*^9, 3.479420578171288*^9}, {
   3.479420683943381*^9, 3.4794206847645617`*^9}, {3.4794210347678413`*^9, 
   3.4794210503903055`*^9}, 3.4803613662913427`*^9, {3.480361406058525*^9, 
   3.48036141974821*^9}, {3.4803614672865667`*^9, 3.480361474717252*^9}, 
   3.4807050675119123`*^9, {3.492804314166378*^9, 3.4928043441496305`*^9}, {
   3.4928044532166224`*^9, 3.492804453513023*^9}, {3.492805162266266*^9, 
   3.492805165713872*^9}, 3.4941724567488375`*^9}],

Cell[BoxData[
 RowBox[{
  RowBox[{"Int", "[", 
   RowBox[{
    RowBox[{
     RowBox[{"(", 
      RowBox[{"a_.", "+", 
       RowBox[{"b_.", "*", 
        RowBox[{"Log", "[", 
         RowBox[{"c_.", "*", 
          RowBox[{"x_", "^", "n_."}]}], "]"}]}]}], ")"}], "/", 
     RowBox[{"(", 
      RowBox[{"d_", "+", 
       RowBox[{"e_.", "*", 
        RowBox[{"x_", "^", "2"}]}]}], ")"}]}], ",", "x_Symbol"}], "]"}], " ", 
  ":=", "\n", "  ", 
  RowBox[{
   RowBox[{"With", "[", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{"u", "=", 
       RowBox[{"IntHide", "[", 
        RowBox[{
         RowBox[{"1", "/", 
          RowBox[{"(", 
           RowBox[{"d", "+", 
            RowBox[{"e", "*", 
             RowBox[{"x", "^", "2"}]}]}], ")"}]}], ",", "x"}], "]"}]}], "}"}],
      ",", "  ", "\n", "  ", 
     RowBox[{
      RowBox[{"u", "*", 
       RowBox[{"(", 
        RowBox[{"a", "+", 
         RowBox[{"b", "*", 
          RowBox[{"Log", "[", 
           RowBox[{"c", "*", 
            RowBox[{"x", "^", "n"}]}], "]"}]}]}], ")"}]}], " ", "-", " ", 
      RowBox[{"b", "*", "n", "*", 
       RowBox[{"Int", "[", 
        RowBox[{
         RowBox[{"u", "/", "x"}], ",", "x"}], "]"}]}]}]}], "]"}], " ", "/;", 
   "\n", 
   RowBox[{"FreeQ", "[", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{"a", ",", "b", ",", "c", ",", "d", ",", "e", ",", "n"}], "}"}], 
     ",", "x"}], "]"}]}]}]], "Code",
 CellChangeTimes->{{3.5505943108164387`*^9, 3.550594318740892*^9}, {
   3.550630675312621*^9, 3.5506306841181245`*^9}, {3.5506855841677713`*^9, 
   3.5506855906431417`*^9}, {3.550686654545994*^9, 3.550686658912243*^9}, 
   3.551727745886137*^9, {3.551727845166276*^9, 3.551727871486313*^9}, 
   3.551727924156387*^9, {3.5517280125265102`*^9, 3.551728021626523*^9}, {
   3.55172863344738*^9, 3.5517286541774087`*^9}, {3.5517290839280105`*^9, 
   3.551729091448021*^9}, {3.5729812378261175`*^9, 3.5729812382473183`*^9}, {
   3.5729812882766066`*^9, 3.572981380971969*^9}, {3.572981453746097*^9, 
   3.572981464042115*^9}, {3.5729816743460846`*^9, 3.5729816755784864`*^9}, 
   3.5729817170589595`*^9, {3.5729902292216225`*^9, 3.5729902676416764`*^9}, {
   3.621813882678424*^9, 3.6218138976462803`*^9}, {3.622417140623449*^9, 
   3.6224172550949965`*^9}, {3.622417381092203*^9, 3.622417384782414*^9}, {
   3.622422858122471*^9, 3.6224229504107494`*^9}, 3.6414122998498087`*^9, {
   3.715994163728972*^9, 3.7159941840351334`*^9}, {3.7159942475887685`*^9, 
   3.715994254868185*^9}, {3.7159948520023394`*^9, 3.7159948524893665`*^9}, 
   3.7159952035674477`*^9, {3.716496834179658*^9, 3.7164968752120047`*^9}, {
   3.716582651152875*^9, 3.7165826561411605`*^9}, {3.7167789530570955`*^9, 
   3.716778973513265*^9}},
 Background->GrayLevel[0.85]],

Cell["", "Subsubsection",
 CellDingbat->None,
 CellChangeTimes->{3.4796643211106243`*^9, 3.4941724567488375`*^9}]
}, Closed]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"\t", 
  RowBox[{Cell[TextData[StyleBox["4.",
    FontFamily->"Arial"]], "None"], "  ", 
   RowBox[{"\[Integral]", 
    RowBox[{
     FractionBox[
      RowBox[{"a", "+", 
       RowBox[{"b", " ", 
        RowBox[{"Log", "[", 
         RowBox[{"c", " ", 
          SuperscriptBox["x", "n"]}], "]"}]}]}], 
      SqrtBox[
       RowBox[{"d", "+", 
        RowBox[{"e", " ", 
         SuperscriptBox["x", "2"]}]}]]], 
     RowBox[{"\[DifferentialD]", "x"}]}]}]}]}]], "Subsubtitle",
 CellDingbat->None,
 CellChangeTimes->{
  3.477935275784027*^9, {3.477935350060832*^9, 3.477935352384173*^9}, {
   3.477935393803731*^9, 3.477935400102789*^9}, {3.477935515378547*^9, 
   3.47793552034569*^9}, 3.478120029940968*^9, {3.479318860690858*^9, 
   3.47931886615872*^9}, {3.4794185033278093`*^9, 3.479418503918659*^9}, 
   3.4795122294117584`*^9, {3.479615913307893*^9, 3.4796159352794867`*^9}, 
   3.4796160386581373`*^9, 3.4796867204045024`*^9, {3.4928025699585147`*^9, 
   3.492802570130115*^9}, 3.492822274480175*^9, 3.492825822242408*^9, {
   3.4940970615585365`*^9, 3.494097062168537*^9}, {3.496441349250718*^9, 
   3.496441349830719*^9}, 3.4964414848609076`*^9, 3.496521708137803*^9, {
   3.4965218981240697`*^9, 3.49652189838407*^9}, 3.4965229070755*^9, 
   3.519247079685614*^9, {3.5193208582062006`*^9, 3.5193208612170057`*^9}, 
   3.5193325694253187`*^9, {3.5193415004828687`*^9, 3.5193415113404875`*^9}, {
   3.5193513965602303`*^9, 3.519351397420232*^9}, {3.5194037839416766`*^9, 
   3.5194037847117205`*^9}, 3.52105258275843*^9, 3.5210531741726685`*^9, {
   3.521057461672199*^9, 3.5210574760242243`*^9}, {3.521059881564049*^9, 
   3.521059886088057*^9}, {3.5213902158895197`*^9, 3.521390217543123*^9}, {
   3.521390827878595*^9, 3.521390829376197*^9}, {3.5214688792561245`*^9, 
   3.521468879443325*^9}, {3.523320201951167*^9, 3.523320202247567*^9}, {
   3.5288596764894824`*^9, 3.5288596768094826`*^9}, {3.529196266260353*^9, 
   3.5291962665099535`*^9}, {3.5291997050223927`*^9, 
   3.5291997052563934`*^9}, {3.529201346457276*^9, 3.529201347252877*^9}, {
   3.529285041073242*^9, 3.5292850412632427`*^9}, {3.529285215443486*^9, 
   3.529285215443486*^9}, {3.5295115356999426`*^9, 3.5295115433443794`*^9}, {
   3.529521412127842*^9, 3.529521414647986*^9}, {3.529529429975619*^9, 
   3.529529432955224*^9}, 3.5340074894011116`*^9, 3.5415537711400824`*^9, {
   3.5415538454742126`*^9, 3.54155384951462*^9}, {3.5417297197063265`*^9, 
   3.5417297252443366`*^9}, {3.546297494083555*^9, 3.5462974982435613`*^9}, {
   3.5462989134855423`*^9, 3.5462989153655453`*^9}, 3.548544146508506*^9, 
   3.5488738855784535`*^9, {3.5505953688729563`*^9, 3.5505953726861744`*^9}, {
   3.550619508681926*^9, 3.5506195174954305`*^9}, {3.551326301250945*^9, 
   3.551326301841979*^9}, {3.552150760656293*^9, 3.552150761436294*^9}, 
   3.5521509768882723`*^9, {3.5521510341403728`*^9, 3.5521510486171985`*^9}, {
   3.5521511118909097`*^9, 3.5521511159313164`*^9}, 3.55215165895267*^9, 
   3.552151705315952*^9, 3.553532182175474*^9, {3.553559669357978*^9, 
   3.553559705888029*^9}, {3.5535602318087654`*^9, 3.5535602417087793`*^9}, 
   3.553617594461242*^9, 3.553617658031331*^9, {3.553617950531741*^9, 
   3.5536179652017612`*^9}, 3.5536197656842823`*^9, {3.553620183864867*^9, 
   3.5536201840648675`*^9}, {3.553620486545291*^9, 3.5536204974853067`*^9}, {
   3.5536226897383757`*^9, 3.5536226903583765`*^9}, {3.553622759128473*^9, 
   3.5536227593384733`*^9}, 3.5536230032388144`*^9, 3.5536231879490733`*^9, {
   3.5562996086223764`*^9, 3.5562996108923798`*^9}, {3.5860254204273715`*^9, 
   3.5860254465674095`*^9}, {3.5860266550541563`*^9, 
   3.5860266550541563`*^9}, {3.5861926920371304`*^9, 3.586192754967222*^9}, {
   3.5862897366473455`*^9, 3.5862897368173456`*^9}, {3.586369614722701*^9, 
   3.5863696275727196`*^9}, {3.586369768287922*^9, 3.5863697766279335`*^9}, {
   3.586372054508708*^9, 3.5863720546887083`*^9}, {3.5864019646066666`*^9, 
   3.5864019649030666`*^9}, 3.586402032160385*^9, {3.586968687748971*^9, 
   3.5869686884389725`*^9}, {3.5869856968497286`*^9, 3.586985697109729*^9}, {
   3.587427128543847*^9, 3.5874271287934475`*^9}, {3.5875725162795973`*^9, 
   3.587572516559597*^9}, {3.620005785012941*^9, 3.6200058243562098`*^9}, {
   3.6200070570703754`*^9, 3.62000705970678*^9}, 3.620013901704794*^9, {
   3.620014658744094*^9, 3.6200146594581347`*^9}, 3.6200152765314293`*^9, 
   3.6200154721536183`*^9, {3.6200155187302823`*^9, 3.620015520915407*^9}, {
   3.6200160276423903`*^9, 3.620016029611503*^9}, 3.620017293031767*^9, {
   3.6200173861510925`*^9, 3.62001739362552*^9}, {3.621977273312705*^9, 
   3.6219772735637193`*^9}, 3.6219773079786873`*^9, 3.6219775728728385`*^9, 
   3.621978806289386*^9, {3.62241655878817*^9, 3.6224165794693527`*^9}, {
   3.622420403559078*^9, 3.622420405781205*^9}, {3.7027837657977943`*^9, 
   3.702783766026808*^9}, {3.715994388668838*^9, 3.7159943888758497`*^9}, {
   3.716146151172517*^9, 3.716146151434532*^9}, {3.7177352500090446`*^9, 
   3.7177352503200626`*^9}, 3.717736168246565*^9, {3.7178195061057987`*^9, 
   3.717819506336812*^9}, 3.7179746933836794`*^9, {3.717974766440858*^9, 
   3.7179747828647976`*^9}, {3.717975314988233*^9, 3.7179753175803814`*^9}, {
   3.7179768379253407`*^9, 3.717976886420114*^9}, {3.717979836154829*^9, 
   3.7179798546608877`*^9}, {3.7239465129493327`*^9, 
   3.7239465212028046`*^9}, {3.7239478093734827`*^9, 3.7239478227162457`*^9}, 
   3.7461206977503967`*^9},
 FontSize->12,
 FontWeight->"Bold"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"\t\t", 
  RowBox[{Cell[TextData[StyleBox["1.",
    FontFamily->"Arial"]], "None"], "  ", 
   RowBox[{"\[Integral]", 
    RowBox[{
     FractionBox[
      RowBox[{"a", "+", 
       RowBox[{"b", " ", 
        RowBox[{"Log", "[", 
         RowBox[{"c", " ", 
          SuperscriptBox["x", "n"]}], "]"}]}]}], 
      SqrtBox[
       RowBox[{"d", "+", 
        RowBox[{"e", " ", 
         SuperscriptBox["x", "2"]}]}]]], 
     RowBox[{"\[DifferentialD]", "x"}], "  ", 
     StyleBox["when",
      FontFamily->"Arial",
      FontWeight->"Plain"], 
     StyleBox["  ",
      FontFamily->"Arial",
      FontWeight->"Plain"], Cell[TextData[Cell[BoxData[
      RowBox[{"d", ">", "0"}]]]], "None"]}]}]}]}]], "Subsubtitle",
 CellDingbat->None,
 CellChangeTimes->{
  3.477935275784027*^9, {3.477935350060832*^9, 3.477935352384173*^9}, {
   3.477935393803731*^9, 3.477935400102789*^9}, {3.477935515378547*^9, 
   3.47793552034569*^9}, 3.478120029940968*^9, {3.479318860690858*^9, 
   3.47931886615872*^9}, {3.4794185033278093`*^9, 3.479418503918659*^9}, 
   3.4795122294117584`*^9, {3.479615913307893*^9, 3.4796159352794867`*^9}, 
   3.4796160386581373`*^9, 3.4796867204045024`*^9, {3.4928025699585147`*^9, 
   3.492802570130115*^9}, 3.492822274480175*^9, 3.492825822242408*^9, {
   3.4940970615585365`*^9, 3.494097062168537*^9}, {3.496441349250718*^9, 
   3.496441349830719*^9}, 3.4964414848609076`*^9, 3.496521708137803*^9, {
   3.4965218981240697`*^9, 3.49652189838407*^9}, 3.4965229070755*^9, 
   3.519247079685614*^9, {3.5193208582062006`*^9, 3.5193208612170057`*^9}, 
   3.5193325694253187`*^9, {3.5193415004828687`*^9, 3.5193415113404875`*^9}, {
   3.5193513965602303`*^9, 3.519351397420232*^9}, {3.5194037839416766`*^9, 
   3.5194037847117205`*^9}, 3.52105258275843*^9, 3.5210531741726685`*^9, {
   3.521057461672199*^9, 3.5210574760242243`*^9}, {3.521059881564049*^9, 
   3.521059886088057*^9}, {3.5213902158895197`*^9, 3.521390217543123*^9}, {
   3.521390827878595*^9, 3.521390829376197*^9}, {3.5214688792561245`*^9, 
   3.521468879443325*^9}, {3.523320201951167*^9, 3.523320202247567*^9}, {
   3.5288596764894824`*^9, 3.5288596768094826`*^9}, {3.529196266260353*^9, 
   3.5291962665099535`*^9}, {3.5291997050223927`*^9, 
   3.5291997052563934`*^9}, {3.529201346457276*^9, 3.529201347252877*^9}, {
   3.529285041073242*^9, 3.5292850412632427`*^9}, {3.529285215443486*^9, 
   3.529285215443486*^9}, {3.5295115356999426`*^9, 3.5295115433443794`*^9}, {
   3.529521412127842*^9, 3.529521414647986*^9}, {3.529529429975619*^9, 
   3.529529432955224*^9}, 3.5340074894011116`*^9, 3.5415537711400824`*^9, {
   3.5415538454742126`*^9, 3.54155384951462*^9}, {3.5417297197063265`*^9, 
   3.5417297252443366`*^9}, {3.546297494083555*^9, 3.5462974982435613`*^9}, {
   3.5462989134855423`*^9, 3.5462989153655453`*^9}, 3.548544146508506*^9, 
   3.5488738855784535`*^9, {3.5505953688729563`*^9, 3.5505953726861744`*^9}, {
   3.550619508681926*^9, 3.5506195174954305`*^9}, {3.551326301250945*^9, 
   3.551326301841979*^9}, {3.552150760656293*^9, 3.552150761436294*^9}, 
   3.5521509768882723`*^9, {3.5521510341403728`*^9, 3.5521510486171985`*^9}, {
   3.5521511118909097`*^9, 3.5521511159313164`*^9}, 3.55215165895267*^9, 
   3.552151705315952*^9, 3.553532182175474*^9, {3.553559669357978*^9, 
   3.553559705888029*^9}, {3.5535602318087654`*^9, 3.5535602417087793`*^9}, 
   3.553617594461242*^9, 3.553617658031331*^9, {3.553617950531741*^9, 
   3.5536179652017612`*^9}, 3.5536197656842823`*^9, {3.553620183864867*^9, 
   3.5536201840648675`*^9}, {3.553620486545291*^9, 3.5536204974853067`*^9}, {
   3.5536226897383757`*^9, 3.5536226903583765`*^9}, {3.553622759128473*^9, 
   3.5536227593384733`*^9}, 3.5536230032388144`*^9, 3.5536231879490733`*^9, {
   3.5562996086223764`*^9, 3.5562996108923798`*^9}, {3.5860254204273715`*^9, 
   3.5860254465674095`*^9}, {3.5860266550541563`*^9, 
   3.5860266550541563`*^9}, {3.5861926920371304`*^9, 3.586192754967222*^9}, {
   3.5862897366473455`*^9, 3.5862897368173456`*^9}, {3.586369614722701*^9, 
   3.5863696275727196`*^9}, {3.586369768287922*^9, 3.5863697766279335`*^9}, {
   3.586372054508708*^9, 3.5863720546887083`*^9}, {3.5864019646066666`*^9, 
   3.5864019649030666`*^9}, 3.586402032160385*^9, {3.586968687748971*^9, 
   3.5869686884389725`*^9}, {3.5869856968497286`*^9, 3.586985697109729*^9}, {
   3.587427128543847*^9, 3.5874271287934475`*^9}, {3.5875725162795973`*^9, 
   3.587572516559597*^9}, {3.620005785012941*^9, 3.6200058243562098`*^9}, {
   3.6200070570703754`*^9, 3.62000705970678*^9}, 3.620013901704794*^9, {
   3.620014658744094*^9, 3.6200146594581347`*^9}, 3.6200152765314293`*^9, 
   3.6200154721536183`*^9, {3.6200155187302823`*^9, 3.620015520915407*^9}, {
   3.6200160276423903`*^9, 3.620016029611503*^9}, 3.620017293031767*^9, {
   3.6200173861510925`*^9, 3.62001739362552*^9}, {3.621977273312705*^9, 
   3.6219772735637193`*^9}, 3.6219773079786873`*^9, 3.6219775728728385`*^9, 
   3.621978806289386*^9, {3.62241655878817*^9, 3.6224165794693527`*^9}, {
   3.622420403559078*^9, 3.622420405781205*^9}, {3.7027837657977943`*^9, 
   3.702783766026808*^9}, {3.715994388668838*^9, 3.7159943888758497`*^9}, {
   3.716146151172517*^9, 3.716146151434532*^9}, {3.7177352500090446`*^9, 
   3.7177352503200626`*^9}, 3.717736168246565*^9, {3.7178195061057987`*^9, 
   3.717819506336812*^9}, 3.7179746933836794`*^9, {3.717974766440858*^9, 
   3.7179747828647976`*^9}, {3.717975314988233*^9, 3.7179753175803814`*^9}, {
   3.7179768379253407`*^9, 3.717976886420114*^9}, {3.717979836154829*^9, 
   3.7179798546608877`*^9}, {3.7239465129493327`*^9, 
   3.7239465212028046`*^9}, {3.7239478093734827`*^9, 
   3.7239478227162457`*^9}, {3.7242612661056013`*^9, 3.72426128740882*^9}, 
   3.746120698270426*^9},
 FontSize->12,
 FontWeight->"Bold"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"\t\t\t", 
  RowBox[{Cell[TextData[StyleBox["1:",
    FontFamily->"Arial",
    FontColor->RGBColor[1, 0, 0]]], "None"], "  ", 
   RowBox[{"\[Integral]", 
    RowBox[{
     FractionBox[
      RowBox[{"a", "+", 
       RowBox[{"b", " ", 
        RowBox[{"Log", "[", 
         RowBox[{"c", " ", 
          SuperscriptBox["x", "n"]}], "]"}]}]}], 
      SqrtBox[
       RowBox[{"d", "+", 
        RowBox[{"e", " ", 
         SuperscriptBox["x", "2"]}]}]]], 
     RowBox[{"\[DifferentialD]", "x"}], "  ", 
     StyleBox["when",
      FontFamily->"Arial",
      FontWeight->"Plain"], 
     StyleBox["  ",
      FontFamily->"Arial",
      FontWeight->"Plain"], Cell[TextData[Cell[BoxData[
      RowBox[{
       RowBox[{"d", ">", "0"}], " ", "\[And]", " ", 
       RowBox[{"e", ">", "0"}]}]]]], "None"]}]}]}]}]], "Subsubtitle",
 CellDingbat->None,
 CellChangeTimes->{
  3.477935275784027*^9, {3.477935350060832*^9, 3.477935352384173*^9}, {
   3.477935393803731*^9, 3.477935400102789*^9}, {3.477935515378547*^9, 
   3.47793552034569*^9}, 3.478120029940968*^9, {3.479318860690858*^9, 
   3.47931886615872*^9}, {3.4794185033278093`*^9, 3.479418503918659*^9}, 
   3.4795122294117584`*^9, {3.479615913307893*^9, 3.4796159352794867`*^9}, 
   3.4796160386581373`*^9, 3.4796867204045024`*^9, {3.4928025699585147`*^9, 
   3.492802570130115*^9}, 3.492822274480175*^9, 3.492825822242408*^9, {
   3.4940970615585365`*^9, 3.494097062168537*^9}, {3.496441349250718*^9, 
   3.496441349830719*^9}, 3.4964414848609076`*^9, 3.496521708137803*^9, {
   3.4965218981240697`*^9, 3.49652189838407*^9}, 3.4965229070755*^9, 
   3.519247079685614*^9, {3.5193208582062006`*^9, 3.5193208612170057`*^9}, 
   3.5193325694253187`*^9, {3.5193422443984776`*^9, 3.5193422447260776`*^9}, 
   3.5193424488212357`*^9, {3.5193434708254333`*^9, 3.519343473103037*^9}, {
   3.5193435097631016`*^9, 3.51934353169674*^9}, {3.519345739319023*^9, 
   3.519345739599823*^9}, 3.5193462601259375`*^9, {3.5193475061060295`*^9, 
   3.5193475233908596`*^9}, {3.519351391880224*^9, 3.5193513931402254`*^9}, {
   3.519403773021052*^9, 3.5194037798564425`*^9}, 3.5194106793250647`*^9, {
   3.519537578341393*^9, 3.5195375792305946`*^9}, {3.5195376277778797`*^9, 
   3.51953767927357*^9}, {3.5197586260636144`*^9, 3.5197586260636144`*^9}, {
   3.51978053295651*^9, 3.519780542862528*^9}, {3.5197806526087203`*^9, 
   3.5197806657595434`*^9}, {3.5197807490168896`*^9, 3.5197807642581167`*^9}, 
   3.5197809004619555`*^9, {3.519782653514635*^9, 3.5197826623286505`*^9}, {
   3.5200207810164795`*^9, 3.520020785046485*^9}, {3.5213126833374643`*^9, 
   3.5213126833374643`*^9}, {3.521328235411002*^9, 3.521328235411002*^9}, {
   3.523315567893022*^9, 3.523315567893022*^9}, {3.5233157569332867`*^9, 
   3.5233157613032923`*^9}, {3.5323023198133526`*^9, 3.532302355723403*^9}, {
   3.5323026417638035`*^9, 3.5323026417638035`*^9}, {3.5323026980138817`*^9, 
   3.5323026980138817`*^9}, {3.532636287104328*^9, 3.532636287104328*^9}, {
   3.5330803686035347`*^9, 3.533080368863535*^9}, {3.533248909289961*^9, 
   3.5332489110299635`*^9}, {3.534962469565694*^9, 3.5349624910757236`*^9}, {
   3.5349625224057674`*^9, 3.534962522655768*^9}, {3.534965265519608*^9, 
   3.534965265519608*^9}, {3.5349668288168063`*^9, 3.5349668292668066`*^9}, {
   3.5349747358481646`*^9, 3.5349747358481646`*^9}, {3.534975457949176*^9, 
   3.534975457949176*^9}, {3.5368633963532934`*^9, 3.536863396571694*^9}, {
   3.541644322511304*^9, 3.5416443577513533`*^9}, {3.5416458269234104`*^9, 
   3.541645839633428*^9}, {3.5416460312236967`*^9, 3.541646031483697*^9}, 
   3.541646227783972*^9, {3.541647080335165*^9, 3.5416471077052035`*^9}, {
   3.541648997607849*^9, 3.5416489978278494`*^9}, 3.541649088407976*^9, {
   3.5417848711596775`*^9, 3.541784902429721*^9}, {3.541786145331461*^9, 
   3.5417861455914617`*^9}, {3.5417870037166634`*^9, 3.5417870039366636`*^9}, 
   3.5462979620242105`*^9, {3.546298264094633*^9, 3.546298265344635*^9}, {
   3.546299000235664*^9, 3.546299001505666*^9}, {3.546315119909564*^9, 
   3.5463151267659564`*^9}, {3.547227356319705*^9, 3.547227356319705*^9}, 
   3.547918559331044*^9, {3.547918610170952*^9, 3.5479186304411116`*^9}, 
   3.548537755517557*^9, 3.5485441629685287`*^9, 3.5485517520154133`*^9, {
   3.5488740727887154`*^9, 3.5488740727887154`*^9}, {3.548874206618903*^9, 
   3.548874206808903*^9}, 3.548877100795455*^9, 3.550596464087599*^9, {
   3.5505965767870445`*^9, 3.5505965767870445`*^9}, 3.5505966202465305`*^9, {
   3.5506039138305197`*^9, 3.55060391400453*^9}, {3.5506040039986773`*^9, 
   3.550604005776779*^9}, {3.5506178888272758`*^9, 3.5506178900273447`*^9}, {
   3.5506192681491685`*^9, 3.550619293563622*^9}, {3.5506195305301757`*^9, 
   3.550619538392626*^9}, 3.5508113633281665`*^9, {3.5508114161671886`*^9, 
   3.550811419328369*^9}, {3.5508116260871954`*^9, 3.5508116269802465`*^9}, {
   3.550811741020769*^9, 3.550811744393962*^9}, {3.5508130184278326`*^9, 
   3.5508130394230337`*^9}, {3.550850981139574*^9, 3.5508510096172028`*^9}, {
   3.5508511357854195`*^9, 3.5508511357854195`*^9}, 3.5513087127028403`*^9, {
   3.551326409634145*^9, 3.5513264112742386`*^9}, {3.5516384008854237`*^9, 
   3.551638414675848*^9}, {3.5516384656099377`*^9, 3.5516384656099377`*^9}, {
   3.5516386768187084`*^9, 3.5516386776455097`*^9}, {3.551638832084979*^9, 
   3.5516388370769873`*^9}, {3.5518228900107107`*^9, 
   3.5518228910507116`*^9}, {3.572980490850006*^9, 3.572980491021606*^9}, {
   3.572980530318075*^9, 3.5729805522361135`*^9}, {3.5729893327183666`*^9, 
   3.5729893345383687`*^9}, 3.5729902100015955`*^9, {3.6224158544448833`*^9, 
   3.6224158563939953`*^9}, 3.6224163822360716`*^9, {3.622416596311316*^9, 
   3.622416601326603*^9}, {3.622416653995615*^9, 3.622416666803348*^9}, {
   3.6224174519962587`*^9, 3.622417469260246*^9}, {3.6224175047112737`*^9, 
   3.6224175047112737`*^9}, 3.622420414486703*^9, 3.7177361689166036`*^9, {
   3.7177362597958016`*^9, 3.7177362597958016`*^9}, 3.7179747162549877`*^9, 
   3.7179747836888447`*^9, 3.7179753281269846`*^9, {3.71797539098558*^9, 
   3.71797539098558*^9}, {3.717976908986405*^9, 3.71797693111567*^9}, 
   3.7179798370338793`*^9, {3.717980360922844*^9, 3.717980394966791*^9}, {
   3.723946529321269*^9, 3.7239465360536547`*^9}, {3.7242612692977843`*^9, 
   3.724261306566916*^9}, 3.746120698814457*^9},
 FontSize->12,
 FontWeight->"Bold"],

Cell["Derivation: Integration by parts", "Subsubsection",
 CellDingbat->"\[FilledSmallSquare]",
 CellChangeTimes->{{3.4794189093216*^9, 3.479418932274605*^9}, {
   3.479418981395237*^9, 3.4794189822564754`*^9}, {3.4794192068193808`*^9, 
   3.4794192077607346`*^9}, 3.479420089138093*^9, {3.479420130978256*^9, 
   3.4794201410627565`*^9}, {3.479420560345656*^9, 3.479420578171288*^9}, {
   3.479420683943381*^9, 3.4794206847645617`*^9}, {3.4794210347678413`*^9, 
   3.4794210503903055`*^9}, 3.4803613662913427`*^9, {3.480361406058525*^9, 
   3.48036141974821*^9}, {3.4803614672865667`*^9, 3.480361474717252*^9}, 
   3.48070534977779*^9, {3.4928296953212276`*^9, 3.492829707041244*^9}, 
   3.4941724084687696`*^9, 3.4941724567488375`*^9, 3.494172783029294*^9, {
   3.495162076203082*^9, 3.495162102707529*^9}, {3.495162264932214*^9, 
   3.495162277318636*^9}, {3.4951637747120676`*^9, 3.495163775320469*^9}, {
   3.4951642488437004`*^9, 3.4951642509653044`*^9}, {3.4952360986673346`*^9, 
   3.4952361002073364`*^9}, 3.4952369731885586`*^9, {3.5508109070940714`*^9, 
   3.5508109172036495`*^9}}],

Cell[TextData[{
 "Basis:",
 " If  ",
 Cell[BoxData[
  RowBox[{"d", ">", "0"}]]],
 ", then",
 " ",
 Cell[BoxData[
  RowBox[{
   FractionBox["1", 
    SqrtBox[
     RowBox[{"d", "+", 
      RowBox[{"e", " ", 
       SuperscriptBox["x", "2"]}]}]]], "\[Equal]", 
   RowBox[{
    SubscriptBox["\[PartialD]", "x"], 
    FractionBox[
     RowBox[{"ArcSinh", "[", 
      FractionBox[
       RowBox[{
        SqrtBox["e"], " ", "x"}], 
       SqrtBox["d"]], "]"}], 
     SqrtBox["e"]]}]}]],
  CellChangeTimes->{{3.62241803300649*^9, 3.622418050782507*^9}}]
}], "Subsubsection",
 CellDingbat->"\[FilledSmallSquare]",
 CellChangeTimes->{{3.4794189093216*^9, 3.479418932274605*^9}, {
   3.479418981395237*^9, 3.4794189822564754`*^9}, {3.4794192068193808`*^9, 
   3.4794192077607346`*^9}, 3.479420089138093*^9, {3.479420130978256*^9, 
   3.4794201410627565`*^9}, {3.479420560345656*^9, 3.479420578171288*^9}, {
   3.479420683943381*^9, 3.4794206847645617`*^9}, {3.4794210347678413`*^9, 
   3.4794210503903055`*^9}, 3.4803613662913427`*^9, {3.480361406058525*^9, 
   3.48036141974821*^9}, {3.4803614672865667`*^9, 3.480361474717252*^9}, 
   3.48070534977779*^9, {3.4928296953212276`*^9, 3.492829707041244*^9}, 
   3.4941724084687696`*^9, 3.4941724567488375`*^9, 3.494172783029294*^9, {
   3.495162076203082*^9, 3.495162102707529*^9}, {3.495162264932214*^9, 
   3.495162277318636*^9}, {3.4951637747120676`*^9, 3.495163775320469*^9}, {
   3.4951642488437004`*^9, 3.4951642509653044`*^9}, {3.4952360986673346`*^9, 
   3.4952361002073364`*^9}, 3.4952369731885586`*^9, {3.5508109070940714`*^9, 
   3.5508109172036495`*^9}, {3.6224180239349713`*^9, 3.622418025816079*^9}, 
   3.6224180574438877`*^9, {3.7177361881507034`*^9, 3.7177362108320007`*^9}, {
   3.7179747854019423`*^9, 3.7179747854019423`*^9}, {3.717974889115875*^9, 
   3.717974889115875*^9}, {3.7179752671794987`*^9, 3.7179752679645433`*^9}, {
   3.7239468590441284`*^9, 3.7239468590441284`*^9}, {3.723946895897236*^9, 
   3.723946897501328*^9}, {3.7239471919381685`*^9, 3.7239471919381685`*^9}}],

Cell[TextData[{
 "Rule: If  ",
 Cell[BoxData[
  RowBox[{
   RowBox[{"d", ">", "0"}], " ", "\[And]", " ", 
   RowBox[{"e", ">", "0"}]}]]],
 ", then"
}], "Subsubsection",
 CellDingbat->"\[FilledSmallSquare]",
 CellChangeTimes->{{3.4794189093216*^9, 3.479418932274605*^9}, {
   3.479418981395237*^9, 3.4794189822564754`*^9}, {3.4794192068193808`*^9, 
   3.4794192077607346`*^9}, 3.479420089138093*^9, {3.479420130978256*^9, 
   3.4794201410627565`*^9}, {3.479420560345656*^9, 3.479420578171288*^9}, {
   3.479420683943381*^9, 3.4794206847645617`*^9}, {3.4794210347678413`*^9, 
   3.4794210503903055`*^9}, 3.4803613662913427`*^9, {3.480361406058525*^9, 
   3.48036141974821*^9}, {3.4803614672865667`*^9, 3.480361474717252*^9}, 
   3.48070534977779*^9, {3.4928296953212276`*^9, 3.492829707041244*^9}, 
   3.4941724084687696`*^9, 3.4941724567488375`*^9, {3.4941737492506466`*^9, 
   3.4941737506706486`*^9}, {3.494173966810951*^9, 3.494174007671008*^9}, {
   3.4941741326011834`*^9, 3.4941741425911975`*^9}, {3.4941767936905165`*^9, 
   3.494176809630539*^9}, {3.4941773316412697`*^9, 3.494177333751273*^9}, {
   3.4941891756608777`*^9, 3.494189178765283*^9}, {3.494196711119521*^9, 
   3.4941967113535213`*^9}, {3.4941972738717093`*^9, 
   3.4941972799089203`*^9}, {3.49420053403185*^9, 3.494200549361871*^9}, {
   3.5549127564596815`*^9, 3.5549127564596815`*^9}, {3.554913675900969*^9, 
   3.554913675900969*^9}, {3.554916014344243*^9, 3.5549160145642433`*^9}, {
   3.5549256011256714`*^9, 3.5549256025256734`*^9}, {3.554927024457664*^9, 
   3.554927024457664*^9}, {3.5853384776645737`*^9, 3.5853384776645737`*^9}, {
   3.585352337077012*^9, 3.585352337077012*^9}, {3.5853524453971643`*^9, 
   3.5853524453971643`*^9}, {3.58619088728408*^9, 3.58619088728408*^9}, {
   3.5861941533017774`*^9, 3.58619418232432*^9}, {3.5862023214736657`*^9, 
   3.586202321633666*^9}, {3.586461191960584*^9, 3.586461191960584*^9}, {
   3.6200068760788574`*^9, 3.6200068760788574`*^9}, {3.6200168202217236`*^9, 
   3.6200168202217236`*^9}, {3.6219781422504053`*^9, 
   3.6219781422504053`*^9}, {3.6224176714388094`*^9, 3.622417691060932*^9}, {
   3.717736277978842*^9, 3.717736287989414*^9}, {3.7177363300348186`*^9, 
   3.717736337255232*^9}, {3.7179753291550436`*^9, 3.7179753291550436`*^9}, {
   3.717975405346401*^9, 3.717975405346401*^9}, {3.7179769368689995`*^9, 
   3.7179769368689995`*^9}, {3.717976985328771*^9, 3.717976985328771*^9}, {
   3.717980402930247*^9, 3.717980402930247*^9}, {3.7239465621441464`*^9, 
   3.7239465621441464`*^9}, {3.723946885859662*^9, 3.723946887905779*^9}, {
   3.7242613183115873`*^9, 3.7242613183115873`*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{"\[Integral]", 
   RowBox[{
    FractionBox[
     RowBox[{"a", "+", 
      RowBox[{"b", " ", 
       RowBox[{"Log", "[", 
        RowBox[{"c", " ", 
         SuperscriptBox["x", "n"]}], "]"}]}]}], 
     SqrtBox[
      RowBox[{"d", "+", 
       RowBox[{"e", " ", 
        SuperscriptBox["x", "2"]}]}]]], 
    RowBox[{"\[DifferentialD]", 
     RowBox[{"x", "  ", "\[LongRightArrow]", "  ", 
      FractionBox[
       RowBox[{
        RowBox[{"ArcSinh", "[", 
         FractionBox[
          RowBox[{
           SqrtBox["e"], " ", "x"}], 
          SqrtBox["d"]], "]"}], " ", 
        RowBox[{"(", 
         RowBox[{"a", "+", 
          RowBox[{"b", " ", 
           RowBox[{"Log", "[", 
            RowBox[{"c", " ", 
             SuperscriptBox["x", "n"]}], "]"}]}]}], ")"}]}], 
       SqrtBox["e"]]}]}]}]}], "-", 
  RowBox[{
   FractionBox[
    RowBox[{"b", " ", "n"}], 
    SqrtBox["e"]], " ", 
   RowBox[{"\[Integral]", 
    RowBox[{
     FractionBox[
      RowBox[{"ArcSinh", "[", 
       FractionBox[
        RowBox[{
         SqrtBox["e"], " ", "x"}], 
        SqrtBox["d"]], "]"}], "x"], 
     RowBox[{"\[DifferentialD]", "x"}]}]}]}]}]], "Subsubtitle",
 CellDingbat->None,
 CellChangeTimes->{{3.4796579732027807`*^9, 3.479658002474872*^9}, {
   3.4796580599975853`*^9, 3.4796580609489536`*^9}, {3.479658295195784*^9, 
   3.47965829684816*^9}, 3.4796611938939075`*^9, 3.4796613924794593`*^9, {
   3.479661443342597*^9, 3.479661446647349*^9}, {3.479661576554146*^9, 
   3.479661589302477*^9}, 3.479661847553824*^9, {3.4796622294729967`*^9, 
   3.4796622450654173`*^9}, {3.479686720424531*^9, 3.4796867204345455`*^9}, {
   3.4796874646646957`*^9, 3.4796874745589232`*^9}, {3.492826573513727*^9, 
   3.492826578630536*^9}, {3.4928267070863624`*^9, 3.492826707460763*^9}, 
   3.4928267903497095`*^9, {3.492829799151373*^9, 3.4928299617216005`*^9}, {
   3.4940972077187414`*^9, 3.4940972347887793`*^9}, {3.49409966398218*^9, 
   3.494099664952181*^9}, {3.4940997156722527`*^9, 3.494099716112253*^9}, 
   3.4941724567488375`*^9, {3.4941727384192314`*^9, 3.494172760679263*^9}, {
   3.495161485476845*^9, 3.4951615041032777`*^9}, 3.4951622258697453`*^9, 
   3.4951623402647467`*^9, {3.4951637900936947`*^9, 3.4951638150849385`*^9}, {
   3.495164178986778*^9, 3.4951642244608574`*^9}, {3.4952361349873853`*^9, 
   3.4952361437173977`*^9}, {3.495237006628606*^9, 3.49523702420863*^9}, {
   3.495237059028679*^9, 3.4952370679486914`*^9}, {3.495237099748736*^9, 
   3.495237124758771*^9}, {3.550811012409095*^9, 3.5508110566586256`*^9}, {
   3.5508114283958883`*^9, 3.5508114616257887`*^9}, {3.5508114983048863`*^9, 
   3.550811499650964*^9}, {3.5508115414753556`*^9, 3.550811550249858*^9}, 
   3.5508116079461575`*^9, {3.550851015011512*^9, 3.550851039862933*^9}, {
   3.5516382446967707`*^9, 3.5516383897314043`*^9}, {3.5516385752625303`*^9, 
   3.551638583514944*^9}, {3.551727395775647*^9, 3.5517274283056927`*^9}, 
   3.5517276341359806`*^9, {3.5517279389564075`*^9, 3.5517279417864113`*^9}, {
   3.551728001636495*^9, 3.5517280050365*^9}, 3.5517280418165517`*^9, {
   3.572981105943486*^9, 3.5729811377987423`*^9}, {3.572981467895322*^9, 
   3.5729814814517455`*^9}, 3.572990341061779*^9, 3.6224163060817156`*^9, 
   3.6224164452156734`*^9, {3.6224164975806684`*^9, 3.622416501634901*^9}, 
   3.6224166824592433`*^9, {3.62241671387304*^9, 3.6224167476329713`*^9}, {
   3.6224173765919456`*^9, 3.6224173784270506`*^9}, 3.622417522078267*^9, 
   3.717736169628644*^9, {3.7177362137091656`*^9, 3.717736235804429*^9}, {
   3.717974786553008*^9, 3.717974787849083*^9}, 3.7179748901369333`*^9, {
   3.71797528538354*^9, 3.717975285719559*^9}, 3.717975329654072*^9, 
   3.7179770088761177`*^9, {3.723946933041361*^9, 3.7239469742967205`*^9}, {
   3.723947202138752*^9, 3.723947217046605*^9}},
 TextAlignment->Center,
 FontSize->12,
 FontWeight->"Bold"],

Cell["Program code:", "Subsubsection",
 CellDingbat->"\[FilledSmallSquare]",
 CellChangeTimes->{{3.4794189093216*^9, 3.479418932274605*^9}, {
   3.479418981395237*^9, 3.4794189822564754`*^9}, {3.4794192068193808`*^9, 
   3.4794192077607346`*^9}, 3.479420089138093*^9, {3.479420130978256*^9, 
   3.4794201410627565`*^9}, {3.479420560345656*^9, 3.479420578171288*^9}, {
   3.479420683943381*^9, 3.4794206847645617`*^9}, {3.4794210347678413`*^9, 
   3.4794210503903055`*^9}, 3.4803613662913427`*^9, {3.480361406058525*^9, 
   3.48036141974821*^9}, {3.4803614672865667`*^9, 3.480361474717252*^9}, 
   3.4807050675119123`*^9, {3.492804314166378*^9, 3.4928043441496305`*^9}, {
   3.4928044532166224`*^9, 3.492804453513023*^9}, {3.492805162266266*^9, 
   3.492805165713872*^9}, 3.4941724567488375`*^9}],

Cell[BoxData[
 RowBox[{
  RowBox[{"Int", "[", 
   RowBox[{
    RowBox[{
     RowBox[{"(", 
      RowBox[{"a_.", "+", 
       RowBox[{"b_.", "*", 
        RowBox[{"Log", "[", 
         RowBox[{"c_.", "*", 
          RowBox[{"x_", "^", "n_."}]}], "]"}]}]}], ")"}], "/", 
     RowBox[{"Sqrt", "[", 
      RowBox[{"d_", "+", 
       RowBox[{"e_.", "*", 
        RowBox[{"x_", "^", "2"}]}]}], "]"}]}], ",", "x_Symbol"}], "]"}], " ", 
  ":=", "\n", "  ", 
  RowBox[{
   RowBox[{
    RowBox[{
     RowBox[{"ArcSinh", "[", 
      RowBox[{
       RowBox[{"Rt", "[", 
        RowBox[{"e", ",", "2"}], "]"}], "*", 
       RowBox[{"x", "/", 
        RowBox[{"Sqrt", "[", "d", "]"}]}]}], "]"}], "*", 
     RowBox[{
      RowBox[{"(", 
       RowBox[{"a", "+", 
        RowBox[{"b", "*", 
         RowBox[{"Log", "[", 
          RowBox[{"c", "*", 
           RowBox[{"x", "^", "n"}]}], "]"}]}]}], ")"}], "/", 
      RowBox[{"Rt", "[", 
       RowBox[{"e", ",", "2"}], "]"}]}]}], " ", "-", " ", 
    RowBox[{"b", "*", 
     RowBox[{"n", "/", 
      RowBox[{"Rt", "[", 
       RowBox[{"e", ",", "2"}], "]"}]}], "*", 
     RowBox[{"Int", "[", 
      RowBox[{
       RowBox[{
        RowBox[{"ArcSinh", "[", 
         RowBox[{
          RowBox[{"Rt", "[", 
           RowBox[{"e", ",", "2"}], "]"}], "*", 
          RowBox[{"x", "/", 
           RowBox[{"Sqrt", "[", "d", "]"}]}]}], "]"}], "/", "x"}], ",", "x"}],
       "]"}]}]}], " ", "/;", "\n", 
   RowBox[{
    RowBox[{"FreeQ", "[", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{"a", ",", "b", ",", "c", ",", "d", ",", "e", ",", "n"}], "}"}],
       ",", "x"}], "]"}], " ", "&&", " ", 
    RowBox[{"GtQ", "[", 
     RowBox[{"d", ",", "0"}], "]"}], " ", "&&", " ", 
    RowBox[{"PosQ", "[", "e", "]"}]}]}]}]], "Code",
 CellChangeTimes->{{3.5505943108164387`*^9, 3.550594318740892*^9}, {
   3.550630675312621*^9, 3.5506306841181245`*^9}, {3.5506855841677713`*^9, 
   3.5506855906431417`*^9}, {3.550686654545994*^9, 3.550686658912243*^9}, 
   3.551727745886137*^9, {3.551727845166276*^9, 3.551727871486313*^9}, 
   3.551727924156387*^9, {3.5517280125265102`*^9, 3.551728021626523*^9}, {
   3.55172863344738*^9, 3.5517286541774087`*^9}, {3.5517290839280105`*^9, 
   3.551729091448021*^9}, {3.5729812378261175`*^9, 3.5729812382473183`*^9}, {
   3.5729812882766066`*^9, 3.572981380971969*^9}, {3.572981453746097*^9, 
   3.572981464042115*^9}, {3.5729816743460846`*^9, 3.5729816755784864`*^9}, 
   3.5729817170589595`*^9, {3.5729902292216225`*^9, 3.5729902676416764`*^9}, {
   3.621813882678424*^9, 3.6218138976462803`*^9}, {3.622417140623449*^9, 
   3.6224172550949965`*^9}, {3.622417381092203*^9, 3.622417384782414*^9}, {
   3.6224175484517756`*^9, 3.6224175924302907`*^9}, 3.6414122927224007`*^9, {
   3.6719241522872095`*^9, 3.6719241591946044`*^9}, 3.6719242520999184`*^9, 
   3.672080452319423*^9, {3.715124574830159*^9, 3.715124576882265*^9}, {
   3.7177364461134586`*^9, 3.7177364620153675`*^9}, {3.7177365033147297`*^9, 
   3.717736540252843*^9}, 3.717974929614191*^9, {3.7179749716495953`*^9, 
   3.717974972449641*^9}, {3.717975183547715*^9, 3.717975184166751*^9}, {
   3.7179752887557325`*^9, 3.717975289007747*^9}, {3.717975357168646*^9, 
   3.717975358677732*^9}, {3.7179754072875123`*^9, 3.717975413430864*^9}, {
   3.71797544780683*^9, 3.7179754523110876`*^9}, {3.717977035939666*^9, 
   3.717977120935528*^9}, {3.7179787146456823`*^9, 3.717978778574339*^9}, {
   3.7192648240197134`*^9, 3.7192648339602823`*^9}, {3.719268338808748*^9, 
   3.7192683496183662`*^9}, {3.7239470244935913`*^9, 3.723947054846328*^9}, 
   3.7239473237457075`*^9, {3.7239474285587015`*^9, 3.723947433485983*^9}, {
   3.7242612029149876`*^9, 3.724261207626257*^9}},
 Background->GrayLevel[0.85]],

Cell["", "Subsubsection",
 CellDingbat->None,
 CellChangeTimes->{3.4796643211106243`*^9, 3.4941724567488375`*^9}]
}, Closed]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"\t\t\t", 
  RowBox[{Cell[TextData[StyleBox["2:",
    FontFamily->"Arial",
    FontColor->RGBColor[1, 0, 0]]], "None"], "  ", 
   RowBox[{"\[Integral]", 
    RowBox[{
     FractionBox[
      RowBox[{"a", "+", 
       RowBox[{"b", " ", 
        RowBox[{"Log", "[", 
         RowBox[{"c", " ", 
          SuperscriptBox["x", "n"]}], "]"}]}]}], 
      SqrtBox[
       RowBox[{"d", "+", 
        RowBox[{"e", " ", 
         SuperscriptBox["x", "2"]}]}]]], 
     RowBox[{"\[DifferentialD]", "x"}], "  ", 
     StyleBox["when",
      FontFamily->"Arial",
      FontWeight->"Plain"], 
     StyleBox["  ",
      FontFamily->"Arial",
      FontWeight->"Plain"], Cell[TextData[Cell[BoxData[
      RowBox[{
       RowBox[{"d", ">", "0"}], " ", "\[And]", " ", 
       RowBox[{"e", "\[NotGreater]", "0"}]}]]]], 
      "None"]}]}]}]}]], "Subsubtitle",
 CellDingbat->None,
 CellChangeTimes->{
  3.477935275784027*^9, {3.477935350060832*^9, 3.477935352384173*^9}, {
   3.477935393803731*^9, 3.477935400102789*^9}, {3.477935515378547*^9, 
   3.47793552034569*^9}, 3.478120029940968*^9, {3.479318860690858*^9, 
   3.47931886615872*^9}, {3.4794185033278093`*^9, 3.479418503918659*^9}, 
   3.4795122294117584`*^9, {3.479615913307893*^9, 3.4796159352794867`*^9}, 
   3.4796160386581373`*^9, 3.4796867204045024`*^9, {3.4928025699585147`*^9, 
   3.492802570130115*^9}, 3.492822274480175*^9, 3.492825822242408*^9, {
   3.4940970615585365`*^9, 3.494097062168537*^9}, {3.496441349250718*^9, 
   3.496441349830719*^9}, 3.4964414848609076`*^9, 3.496521708137803*^9, {
   3.4965218981240697`*^9, 3.49652189838407*^9}, 3.4965229070755*^9, 
   3.519247079685614*^9, {3.5193208582062006`*^9, 3.5193208612170057`*^9}, 
   3.5193325694253187`*^9, {3.5193422443984776`*^9, 3.5193422447260776`*^9}, 
   3.5193424488212357`*^9, {3.5193434708254333`*^9, 3.519343473103037*^9}, {
   3.5193435097631016`*^9, 3.51934353169674*^9}, {3.519345739319023*^9, 
   3.519345739599823*^9}, 3.5193462601259375`*^9, {3.5193475061060295`*^9, 
   3.5193475233908596`*^9}, {3.519351391880224*^9, 3.5193513931402254`*^9}, {
   3.519403773021052*^9, 3.5194037798564425`*^9}, 3.5194106793250647`*^9, {
   3.519537578341393*^9, 3.5195375792305946`*^9}, {3.5195376277778797`*^9, 
   3.51953767927357*^9}, {3.5197586260636144`*^9, 3.5197586260636144`*^9}, {
   3.51978053295651*^9, 3.519780542862528*^9}, {3.5197806526087203`*^9, 
   3.5197806657595434`*^9}, {3.5197807490168896`*^9, 3.5197807642581167`*^9}, 
   3.5197809004619555`*^9, {3.519782653514635*^9, 3.5197826623286505`*^9}, {
   3.5200207810164795`*^9, 3.520020785046485*^9}, {3.5213126833374643`*^9, 
   3.5213126833374643`*^9}, {3.521328235411002*^9, 3.521328235411002*^9}, {
   3.523315567893022*^9, 3.523315567893022*^9}, {3.5233157569332867`*^9, 
   3.5233157613032923`*^9}, {3.5323023198133526`*^9, 3.532302355723403*^9}, {
   3.5323026417638035`*^9, 3.5323026417638035`*^9}, {3.5323026980138817`*^9, 
   3.5323026980138817`*^9}, {3.532636287104328*^9, 3.532636287104328*^9}, {
   3.5330803686035347`*^9, 3.533080368863535*^9}, {3.533248909289961*^9, 
   3.5332489110299635`*^9}, {3.534962469565694*^9, 3.5349624910757236`*^9}, {
   3.5349625224057674`*^9, 3.534962522655768*^9}, {3.534965265519608*^9, 
   3.534965265519608*^9}, {3.5349668288168063`*^9, 3.5349668292668066`*^9}, {
   3.5349747358481646`*^9, 3.5349747358481646`*^9}, {3.534975457949176*^9, 
   3.534975457949176*^9}, {3.5368633963532934`*^9, 3.536863396571694*^9}, {
   3.541644322511304*^9, 3.5416443577513533`*^9}, {3.5416458269234104`*^9, 
   3.541645839633428*^9}, {3.5416460312236967`*^9, 3.541646031483697*^9}, 
   3.541646227783972*^9, {3.541647080335165*^9, 3.5416471077052035`*^9}, {
   3.541648997607849*^9, 3.5416489978278494`*^9}, 3.541649088407976*^9, {
   3.5417848711596775`*^9, 3.541784902429721*^9}, {3.541786145331461*^9, 
   3.5417861455914617`*^9}, {3.5417870037166634`*^9, 3.5417870039366636`*^9}, 
   3.5462979620242105`*^9, {3.546298264094633*^9, 3.546298265344635*^9}, {
   3.546299000235664*^9, 3.546299001505666*^9}, {3.546315119909564*^9, 
   3.5463151267659564`*^9}, {3.547227356319705*^9, 3.547227356319705*^9}, 
   3.547918559331044*^9, {3.547918610170952*^9, 3.5479186304411116`*^9}, 
   3.548537755517557*^9, 3.5485441629685287`*^9, 3.5485517520154133`*^9, {
   3.5488740727887154`*^9, 3.5488740727887154`*^9}, {3.548874206618903*^9, 
   3.548874206808903*^9}, 3.548877100795455*^9, 3.550596464087599*^9, {
   3.5505965767870445`*^9, 3.5505965767870445`*^9}, 3.5505966202465305`*^9, {
   3.5506039138305197`*^9, 3.55060391400453*^9}, {3.5506040039986773`*^9, 
   3.550604005776779*^9}, {3.5506178888272758`*^9, 3.5506178900273447`*^9}, {
   3.5506192681491685`*^9, 3.550619293563622*^9}, {3.5506195305301757`*^9, 
   3.550619538392626*^9}, 3.5508113633281665`*^9, {3.5508114161671886`*^9, 
   3.550811419328369*^9}, {3.5508116260871954`*^9, 3.5508116269802465`*^9}, {
   3.550811741020769*^9, 3.550811744393962*^9}, {3.5508130184278326`*^9, 
   3.5508130394230337`*^9}, {3.550850981139574*^9, 3.5508510096172028`*^9}, {
   3.5508511357854195`*^9, 3.5508511357854195`*^9}, 3.5513087127028403`*^9, {
   3.551326409634145*^9, 3.5513264112742386`*^9}, {3.5516384008854237`*^9, 
   3.551638414675848*^9}, {3.5516384656099377`*^9, 3.5516384656099377`*^9}, {
   3.5516386768187084`*^9, 3.5516386776455097`*^9}, {3.551638832084979*^9, 
   3.5516388370769873`*^9}, {3.5518228900107107`*^9, 
   3.5518228910507116`*^9}, {3.572980490850006*^9, 3.572980491021606*^9}, {
   3.572980530318075*^9, 3.5729805522361135`*^9}, {3.5729893327183666`*^9, 
   3.5729893345383687`*^9}, 3.5729902100015955`*^9, {3.6224158544448833`*^9, 
   3.6224158563939953`*^9}, 3.6224163822360716`*^9, {3.622416596311316*^9, 
   3.622416601326603*^9}, {3.622416653995615*^9, 3.622416666803348*^9}, {
   3.6224174519962587`*^9, 3.622417469260246*^9}, {3.6224175047112737`*^9, 
   3.6224175047112737`*^9}, 3.622420414486703*^9, 3.7177361689166036`*^9, {
   3.7177362597958016`*^9, 3.7177362597958016`*^9}, 3.7179747162549877`*^9, 
   3.7179747836888447`*^9, 3.7179753281269846`*^9, {3.71797539098558*^9, 
   3.71797539098558*^9}, {3.717976908986405*^9, 3.71797693111567*^9}, 
   3.7179798370338793`*^9, {3.717980360922844*^9, 3.717980394966791*^9}, {
   3.723946529321269*^9, 3.7239465360536547`*^9}, {3.7242612692977843`*^9, 
   3.724261306566916*^9}, {3.7242613442740726`*^9, 3.724261355204698*^9}, 
   3.7461206992864842`*^9},
 FontSize->12,
 FontWeight->"Bold"],

Cell["Derivation: Integration by parts", "Subsubsection",
 CellDingbat->"\[FilledSmallSquare]",
 CellChangeTimes->{{3.4794189093216*^9, 3.479418932274605*^9}, {
   3.479418981395237*^9, 3.4794189822564754`*^9}, {3.4794192068193808`*^9, 
   3.4794192077607346`*^9}, 3.479420089138093*^9, {3.479420130978256*^9, 
   3.4794201410627565`*^9}, {3.479420560345656*^9, 3.479420578171288*^9}, {
   3.479420683943381*^9, 3.4794206847645617`*^9}, {3.4794210347678413`*^9, 
   3.4794210503903055`*^9}, 3.4803613662913427`*^9, {3.480361406058525*^9, 
   3.48036141974821*^9}, {3.4803614672865667`*^9, 3.480361474717252*^9}, 
   3.48070534977779*^9, {3.4928296953212276`*^9, 3.492829707041244*^9}, 
   3.4941724084687696`*^9, 3.4941724567488375`*^9, 3.494172783029294*^9, {
   3.495162076203082*^9, 3.495162102707529*^9}, {3.495162264932214*^9, 
   3.495162277318636*^9}, {3.4951637747120676`*^9, 3.495163775320469*^9}, {
   3.4951642488437004`*^9, 3.4951642509653044`*^9}, {3.4952360986673346`*^9, 
   3.4952361002073364`*^9}, 3.4952369731885586`*^9, {3.5508109070940714`*^9, 
   3.5508109172036495`*^9}}],

Cell[TextData[{
 "Basis:",
 " If  ",
 Cell[BoxData[
  RowBox[{"d", ">", "0"}]]],
 ", then",
 " ",
 Cell[BoxData[
  RowBox[{
   FractionBox["1", 
    SqrtBox[
     RowBox[{"d", "+", 
      RowBox[{"e", " ", 
       SuperscriptBox["x", "2"]}]}]]], "\[Equal]", 
   RowBox[{
    SubscriptBox["\[PartialD]", "x"], 
    FractionBox[
     RowBox[{"ArcSin", "[", 
      FractionBox[
       RowBox[{
        SqrtBox[
         RowBox[{"-", "e"}]], " ", "x"}], 
       SqrtBox["d"]], "]"}], 
     SqrtBox[
      RowBox[{"-", "e"}]]]}]}]],
  CellChangeTimes->{{3.62241803300649*^9, 3.622418050782507*^9}}]
}], "Subsubsection",
 CellDingbat->"\[FilledSmallSquare]",
 CellChangeTimes->{{3.4794189093216*^9, 3.479418932274605*^9}, {
   3.479418981395237*^9, 3.4794189822564754`*^9}, {3.4794192068193808`*^9, 
   3.4794192077607346`*^9}, 3.479420089138093*^9, {3.479420130978256*^9, 
   3.4794201410627565`*^9}, {3.479420560345656*^9, 3.479420578171288*^9}, {
   3.479420683943381*^9, 3.4794206847645617`*^9}, {3.4794210347678413`*^9, 
   3.4794210503903055`*^9}, 3.4803613662913427`*^9, {3.480361406058525*^9, 
   3.48036141974821*^9}, {3.4803614672865667`*^9, 3.480361474717252*^9}, 
   3.48070534977779*^9, {3.4928296953212276`*^9, 3.492829707041244*^9}, 
   3.4941724084687696`*^9, 3.4941724567488375`*^9, 3.494172783029294*^9, {
   3.495162076203082*^9, 3.495162102707529*^9}, {3.495162264932214*^9, 
   3.495162277318636*^9}, {3.4951637747120676`*^9, 3.495163775320469*^9}, {
   3.4951642488437004`*^9, 3.4951642509653044`*^9}, {3.4952360986673346`*^9, 
   3.4952361002073364`*^9}, 3.4952369731885586`*^9, {3.5508109070940714`*^9, 
   3.5508109172036495`*^9}, {3.6224180239349713`*^9, 3.622418025816079*^9}, 
   3.6224180574438877`*^9, {3.7177361881507034`*^9, 3.7177362108320007`*^9}, {
   3.7179747854019423`*^9, 3.7179747854019423`*^9}, {3.717974889115875*^9, 
   3.717974889115875*^9}, {3.7179752671794987`*^9, 3.7179752679645433`*^9}, {
   3.7239468590441284`*^9, 3.7239468590441284`*^9}, {3.723946895897236*^9, 
   3.723946897501328*^9}, {3.7239471919381685`*^9, 3.7239471919381685`*^9}, {
   3.724261412813993*^9, 3.724261412813993*^9}}],

Cell[TextData[{
 "Rule: If  ",
 Cell[BoxData[
  RowBox[{
   RowBox[{"d", ">", "0"}], " ", "\[And]", " ", 
   RowBox[{"e", "\[NotGreater]", "0"}]}]]],
 ", then"
}], "Subsubsection",
 CellDingbat->"\[FilledSmallSquare]",
 CellChangeTimes->{{3.4794189093216*^9, 3.479418932274605*^9}, {
   3.479418981395237*^9, 3.4794189822564754`*^9}, {3.4794192068193808`*^9, 
   3.4794192077607346`*^9}, 3.479420089138093*^9, {3.479420130978256*^9, 
   3.4794201410627565`*^9}, {3.479420560345656*^9, 3.479420578171288*^9}, {
   3.479420683943381*^9, 3.4794206847645617`*^9}, {3.4794210347678413`*^9, 
   3.4794210503903055`*^9}, 3.4803613662913427`*^9, {3.480361406058525*^9, 
   3.48036141974821*^9}, {3.4803614672865667`*^9, 3.480361474717252*^9}, 
   3.48070534977779*^9, {3.4928296953212276`*^9, 3.492829707041244*^9}, 
   3.4941724084687696`*^9, 3.4941724567488375`*^9, {3.4941737492506466`*^9, 
   3.4941737506706486`*^9}, {3.494173966810951*^9, 3.494174007671008*^9}, {
   3.4941741326011834`*^9, 3.4941741425911975`*^9}, {3.4941767936905165`*^9, 
   3.494176809630539*^9}, {3.4941773316412697`*^9, 3.494177333751273*^9}, {
   3.4941891756608777`*^9, 3.494189178765283*^9}, {3.494196711119521*^9, 
   3.4941967113535213`*^9}, {3.4941972738717093`*^9, 
   3.4941972799089203`*^9}, {3.49420053403185*^9, 3.494200549361871*^9}, {
   3.5549127564596815`*^9, 3.5549127564596815`*^9}, {3.554913675900969*^9, 
   3.554913675900969*^9}, {3.554916014344243*^9, 3.5549160145642433`*^9}, {
   3.5549256011256714`*^9, 3.5549256025256734`*^9}, {3.554927024457664*^9, 
   3.554927024457664*^9}, {3.5853384776645737`*^9, 3.5853384776645737`*^9}, {
   3.585352337077012*^9, 3.585352337077012*^9}, {3.5853524453971643`*^9, 
   3.5853524453971643`*^9}, {3.58619088728408*^9, 3.58619088728408*^9}, {
   3.5861941533017774`*^9, 3.58619418232432*^9}, {3.5862023214736657`*^9, 
   3.586202321633666*^9}, {3.586461191960584*^9, 3.586461191960584*^9}, {
   3.6200068760788574`*^9, 3.6200068760788574`*^9}, {3.6200168202217236`*^9, 
   3.6200168202217236`*^9}, {3.6219781422504053`*^9, 
   3.6219781422504053`*^9}, {3.6224176714388094`*^9, 3.622417691060932*^9}, {
   3.717736277978842*^9, 3.717736287989414*^9}, {3.7177363300348186`*^9, 
   3.717736337255232*^9}, {3.7179753291550436`*^9, 3.7179753291550436`*^9}, {
   3.717975405346401*^9, 3.717975405346401*^9}, {3.7179769368689995`*^9, 
   3.7179769368689995`*^9}, {3.717976985328771*^9, 3.717976985328771*^9}, {
   3.717980402930247*^9, 3.717980402930247*^9}, {3.7239465621441464`*^9, 
   3.7239465621441464`*^9}, {3.723946885859662*^9, 3.723946887905779*^9}, {
   3.7242613183115873`*^9, 3.7242613183115873`*^9}, {3.7242613639812*^9, 
   3.7242613639812*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{"\[Integral]", 
   RowBox[{
    FractionBox[
     RowBox[{"a", "+", 
      RowBox[{"b", " ", 
       RowBox[{"Log", "[", 
        RowBox[{"c", " ", 
         SuperscriptBox["x", "n"]}], "]"}]}]}], 
     SqrtBox[
      RowBox[{"d", "+", 
       RowBox[{"e", " ", 
        SuperscriptBox["x", "2"]}]}]]], 
    RowBox[{"\[DifferentialD]", 
     RowBox[{"x", "  ", "\[LongRightArrow]", "  ", 
      FractionBox[
       RowBox[{
        RowBox[{"ArcSin", "[", 
         FractionBox[
          RowBox[{
           SqrtBox[
            RowBox[{"-", "e"}]], " ", "x"}], 
          SqrtBox["d"]], "]"}], " ", 
        RowBox[{"(", 
         RowBox[{"a", "+", 
          RowBox[{"b", " ", 
           RowBox[{"Log", "[", 
            RowBox[{"c", " ", 
             SuperscriptBox["x", "n"]}], "]"}]}]}], ")"}]}], 
       SqrtBox[
        RowBox[{"-", "e"}]]]}]}]}]}], "-", 
  RowBox[{
   FractionBox[
    RowBox[{"b", " ", "n"}], 
    SqrtBox[
     RowBox[{"-", "e"}]]], " ", 
   RowBox[{"\[Integral]", 
    RowBox[{
     FractionBox[
      RowBox[{"ArcSin", "[", 
       FractionBox[
        RowBox[{
         SqrtBox[
          RowBox[{"-", "e"}]], " ", "x"}], 
        SqrtBox["d"]], "]"}], "x"], 
     RowBox[{"\[DifferentialD]", "x"}]}]}]}]}]], "Subsubtitle",
 CellDingbat->None,
 CellChangeTimes->{{3.4796579732027807`*^9, 3.479658002474872*^9}, {
   3.4796580599975853`*^9, 3.4796580609489536`*^9}, {3.479658295195784*^9, 
   3.47965829684816*^9}, 3.4796611938939075`*^9, 3.4796613924794593`*^9, {
   3.479661443342597*^9, 3.479661446647349*^9}, {3.479661576554146*^9, 
   3.479661589302477*^9}, 3.479661847553824*^9, {3.4796622294729967`*^9, 
   3.4796622450654173`*^9}, {3.479686720424531*^9, 3.4796867204345455`*^9}, {
   3.4796874646646957`*^9, 3.4796874745589232`*^9}, {3.492826573513727*^9, 
   3.492826578630536*^9}, {3.4928267070863624`*^9, 3.492826707460763*^9}, 
   3.4928267903497095`*^9, {3.492829799151373*^9, 3.4928299617216005`*^9}, {
   3.4940972077187414`*^9, 3.4940972347887793`*^9}, {3.49409966398218*^9, 
   3.494099664952181*^9}, {3.4940997156722527`*^9, 3.494099716112253*^9}, 
   3.4941724567488375`*^9, {3.4941727384192314`*^9, 3.494172760679263*^9}, {
   3.495161485476845*^9, 3.4951615041032777`*^9}, 3.4951622258697453`*^9, 
   3.4951623402647467`*^9, {3.4951637900936947`*^9, 3.4951638150849385`*^9}, {
   3.495164178986778*^9, 3.4951642244608574`*^9}, {3.4952361349873853`*^9, 
   3.4952361437173977`*^9}, {3.495237006628606*^9, 3.49523702420863*^9}, {
   3.495237059028679*^9, 3.4952370679486914`*^9}, {3.495237099748736*^9, 
   3.495237124758771*^9}, {3.550811012409095*^9, 3.5508110566586256`*^9}, {
   3.5508114283958883`*^9, 3.5508114616257887`*^9}, {3.5508114983048863`*^9, 
   3.550811499650964*^9}, {3.5508115414753556`*^9, 3.550811550249858*^9}, 
   3.5508116079461575`*^9, {3.550851015011512*^9, 3.550851039862933*^9}, {
   3.5516382446967707`*^9, 3.5516383897314043`*^9}, {3.5516385752625303`*^9, 
   3.551638583514944*^9}, {3.551727395775647*^9, 3.5517274283056927`*^9}, 
   3.5517276341359806`*^9, {3.5517279389564075`*^9, 3.5517279417864113`*^9}, {
   3.551728001636495*^9, 3.5517280050365*^9}, 3.5517280418165517`*^9, {
   3.572981105943486*^9, 3.5729811377987423`*^9}, {3.572981467895322*^9, 
   3.5729814814517455`*^9}, 3.572990341061779*^9, 3.6224163060817156`*^9, 
   3.6224164452156734`*^9, {3.6224164975806684`*^9, 3.622416501634901*^9}, 
   3.6224166824592433`*^9, {3.62241671387304*^9, 3.6224167476329713`*^9}, {
   3.6224173765919456`*^9, 3.6224173784270506`*^9}, 3.622417522078267*^9, 
   3.717736169628644*^9, {3.7177362137091656`*^9, 3.717736235804429*^9}, {
   3.717974786553008*^9, 3.717974787849083*^9}, 3.7179748901369333`*^9, {
   3.71797528538354*^9, 3.717975285719559*^9}, 3.717975329654072*^9, 
   3.7179770088761177`*^9, {3.723946933041361*^9, 3.7239469742967205`*^9}, {
   3.723947202138752*^9, 3.723947217046605*^9}, {3.724261427040807*^9, 
   3.7242614387144747`*^9}},
 TextAlignment->Center,
 FontSize->12,
 FontWeight->"Bold"],

Cell["Program code:", "Subsubsection",
 CellDingbat->"\[FilledSmallSquare]",
 CellChangeTimes->{{3.4794189093216*^9, 3.479418932274605*^9}, {
   3.479418981395237*^9, 3.4794189822564754`*^9}, {3.4794192068193808`*^9, 
   3.4794192077607346`*^9}, 3.479420089138093*^9, {3.479420130978256*^9, 
   3.4794201410627565`*^9}, {3.479420560345656*^9, 3.479420578171288*^9}, {
   3.479420683943381*^9, 3.4794206847645617`*^9}, {3.4794210347678413`*^9, 
   3.4794210503903055`*^9}, 3.4803613662913427`*^9, {3.480361406058525*^9, 
   3.48036141974821*^9}, {3.4803614672865667`*^9, 3.480361474717252*^9}, 
   3.4807050675119123`*^9, {3.492804314166378*^9, 3.4928043441496305`*^9}, {
   3.4928044532166224`*^9, 3.492804453513023*^9}, {3.492805162266266*^9, 
   3.492805165713872*^9}, 3.4941724567488375`*^9}],

Cell[BoxData[
 RowBox[{
  RowBox[{"Int", "[", 
   RowBox[{
    RowBox[{
     RowBox[{"(", 
      RowBox[{"a_.", "+", 
       RowBox[{"b_.", "*", 
        RowBox[{"Log", "[", 
         RowBox[{"c_.", "*", 
          RowBox[{"x_", "^", "n_."}]}], "]"}]}]}], ")"}], "/", 
     RowBox[{"Sqrt", "[", 
      RowBox[{"d_", "+", 
       RowBox[{"e_.", "*", 
        RowBox[{"x_", "^", "2"}]}]}], "]"}]}], ",", "x_Symbol"}], "]"}], " ", 
  ":=", "\n", "  ", 
  RowBox[{
   RowBox[{
    RowBox[{
     RowBox[{"ArcSin", "[", 
      RowBox[{
       RowBox[{"Rt", "[", 
        RowBox[{
         RowBox[{"-", "e"}], ",", "2"}], "]"}], "*", 
       RowBox[{"x", "/", 
        RowBox[{"Sqrt", "[", "d", "]"}]}]}], "]"}], "*", 
     RowBox[{
      RowBox[{"(", 
       RowBox[{"a", "+", 
        RowBox[{"b", "*", 
         RowBox[{"Log", "[", 
          RowBox[{"c", "*", 
           RowBox[{"x", "^", "n"}]}], "]"}]}]}], ")"}], "/", 
      RowBox[{"Rt", "[", 
       RowBox[{
        RowBox[{"-", "e"}], ",", "2"}], "]"}]}]}], " ", "-", " ", 
    RowBox[{"b", "*", 
     RowBox[{"n", "/", 
      RowBox[{"Rt", "[", 
       RowBox[{
        RowBox[{"-", "e"}], ",", "2"}], "]"}]}], "*", 
     RowBox[{"Int", "[", 
      RowBox[{
       RowBox[{
        RowBox[{"ArcSin", "[", 
         RowBox[{
          RowBox[{"Rt", "[", 
           RowBox[{
            RowBox[{"-", "e"}], ",", "2"}], "]"}], "*", 
          RowBox[{"x", "/", 
           RowBox[{"Sqrt", "[", "d", "]"}]}]}], "]"}], "/", "x"}], ",", "x"}],
       "]"}]}]}], " ", "/;", "\n", 
   RowBox[{
    RowBox[{"FreeQ", "[", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{"a", ",", "b", ",", "c", ",", "d", ",", "e", ",", "n"}], "}"}],
       ",", "x"}], "]"}], " ", "&&", " ", 
    RowBox[{"GtQ", "[", 
     RowBox[{"d", ",", "0"}], "]"}], " ", "&&", " ", 
    RowBox[{"NegQ", "[", "e", "]"}]}]}]}]], "Code",
 CellChangeTimes->{{3.5505943108164387`*^9, 3.550594318740892*^9}, {
   3.550630675312621*^9, 3.5506306841181245`*^9}, {3.5506855841677713`*^9, 
   3.5506855906431417`*^9}, {3.550686654545994*^9, 3.550686658912243*^9}, 
   3.551727745886137*^9, {3.551727845166276*^9, 3.551727871486313*^9}, 
   3.551727924156387*^9, {3.5517280125265102`*^9, 3.551728021626523*^9}, {
   3.55172863344738*^9, 3.5517286541774087`*^9}, {3.5517290839280105`*^9, 
   3.551729091448021*^9}, {3.5729812378261175`*^9, 3.5729812382473183`*^9}, {
   3.5729812882766066`*^9, 3.572981380971969*^9}, {3.572981453746097*^9, 
   3.572981464042115*^9}, {3.5729816743460846`*^9, 3.5729816755784864`*^9}, 
   3.5729817170589595`*^9, {3.5729902292216225`*^9, 3.5729902676416764`*^9}, {
   3.621813882678424*^9, 3.6218138976462803`*^9}, {3.622417140623449*^9, 
   3.6224172550949965`*^9}, {3.622417381092203*^9, 3.622417384782414*^9}, {
   3.6224175484517756`*^9, 3.6224175924302907`*^9}, 3.6414122927224007`*^9, {
   3.6719241522872095`*^9, 3.6719241591946044`*^9}, 3.6719242520999184`*^9, 
   3.672080452319423*^9, {3.715124574830159*^9, 3.715124576882265*^9}, {
   3.7177364461134586`*^9, 3.7177364620153675`*^9}, {3.7177365033147297`*^9, 
   3.717736540252843*^9}, 3.717974929614191*^9, {3.7179749716495953`*^9, 
   3.717974972449641*^9}, {3.717975183547715*^9, 3.717975184166751*^9}, {
   3.7179752887557325`*^9, 3.717975289007747*^9}, {3.717975357168646*^9, 
   3.717975358677732*^9}, {3.7179754072875123`*^9, 3.717975413430864*^9}, {
   3.71797544780683*^9, 3.7179754523110876`*^9}, {3.717977035939666*^9, 
   3.717977120935528*^9}, {3.7179787146456823`*^9, 3.717978778574339*^9}, {
   3.7192648240197134`*^9, 3.7192648339602823`*^9}, {3.719268338808748*^9, 
   3.7192683496183662`*^9}, {3.7239470244935913`*^9, 3.723947054846328*^9}, 
   3.7239473237457075`*^9, {3.7239474285587015`*^9, 3.723947433485983*^9}, {
   3.7242612029149876`*^9, 3.724261207626257*^9}, {3.7242613684304543`*^9, 
   3.7242613695285172`*^9}, {3.724261456734505*^9, 3.724261478277737*^9}},
 Background->GrayLevel[0.85]],

Cell["", "Subsubsection",
 CellDingbat->None,
 CellChangeTimes->{3.4796643211106243`*^9, 3.4941724567488375`*^9}]
}, Closed]]
}, Closed]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"\t\t", 
  RowBox[{Cell[TextData[StyleBox["2:",
    FontFamily->"Arial",
    FontColor->RGBColor[1, 0, 0]]], "None"], "  ", 
   RowBox[{"\[Integral]", 
    RowBox[{
     FractionBox[
      RowBox[{"a", "+", 
       RowBox[{"b", " ", 
        RowBox[{"Log", "[", 
         RowBox[{"c", " ", 
          SuperscriptBox["x", "n"]}], "]"}]}]}], 
      SqrtBox[
       RowBox[{"d", "+", 
        RowBox[{"e", " ", 
         SuperscriptBox["x", "2"]}]}]]], 
     RowBox[{"\[DifferentialD]", "x"}], "  ", 
     StyleBox["when",
      FontFamily->"Arial",
      FontWeight->"Plain"], 
     StyleBox["  ",
      FontFamily->"Arial",
      FontWeight->"Plain"], Cell[TextData[Cell[BoxData[
      RowBox[{"d", "\[NotGreater]", "0"}]]]], "None"]}]}]}]}]], "Subsubtitle",
 CellDingbat->None,
 CellChangeTimes->{
  3.477935275784027*^9, {3.477935350060832*^9, 3.477935352384173*^9}, {
   3.477935393803731*^9, 3.477935400102789*^9}, {3.477935515378547*^9, 
   3.47793552034569*^9}, 3.478120029940968*^9, {3.479318860690858*^9, 
   3.47931886615872*^9}, {3.4794185033278093`*^9, 3.479418503918659*^9}, 
   3.4795122294117584`*^9, {3.479615913307893*^9, 3.4796159352794867`*^9}, 
   3.4796160386581373`*^9, 3.4796867204045024`*^9, {3.4928025699585147`*^9, 
   3.492802570130115*^9}, 3.492822274480175*^9, 3.492825822242408*^9, {
   3.4940970615585365`*^9, 3.494097062168537*^9}, {3.496441349250718*^9, 
   3.496441349830719*^9}, 3.4964414848609076`*^9, 3.496521708137803*^9, {
   3.4965218981240697`*^9, 3.49652189838407*^9}, 3.4965229070755*^9, 
   3.519247079685614*^9, {3.5193208582062006`*^9, 3.5193208612170057`*^9}, 
   3.5193325694253187`*^9, {3.5193422443984776`*^9, 3.5193422447260776`*^9}, 
   3.5193424488212357`*^9, {3.5193434708254333`*^9, 3.519343473103037*^9}, {
   3.5193435097631016`*^9, 3.51934353169674*^9}, {3.519345739319023*^9, 
   3.519345739599823*^9}, 3.5193462601259375`*^9, {3.5193475061060295`*^9, 
   3.5193475233908596`*^9}, {3.519351391880224*^9, 3.5193513931402254`*^9}, {
   3.519403773021052*^9, 3.5194037798564425`*^9}, 3.5194106793250647`*^9, {
   3.519537578341393*^9, 3.5195375792305946`*^9}, {3.5195376277778797`*^9, 
   3.51953767927357*^9}, {3.5197586260636144`*^9, 3.5197586260636144`*^9}, {
   3.51978053295651*^9, 3.519780542862528*^9}, {3.5197806526087203`*^9, 
   3.5197806657595434`*^9}, {3.5197807490168896`*^9, 3.5197807642581167`*^9}, 
   3.5197809004619555`*^9, {3.519782653514635*^9, 3.5197826623286505`*^9}, {
   3.5200207810164795`*^9, 3.520020785046485*^9}, {3.5213126833374643`*^9, 
   3.5213126833374643`*^9}, {3.521328235411002*^9, 3.521328235411002*^9}, {
   3.523315567893022*^9, 3.523315567893022*^9}, {3.5233157569332867`*^9, 
   3.5233157613032923`*^9}, {3.5323023198133526`*^9, 3.532302355723403*^9}, {
   3.5323026417638035`*^9, 3.5323026417638035`*^9}, {3.5323026980138817`*^9, 
   3.5323026980138817`*^9}, {3.532636287104328*^9, 3.532636287104328*^9}, {
   3.5330803686035347`*^9, 3.533080368863535*^9}, {3.533248909289961*^9, 
   3.5332489110299635`*^9}, {3.534962469565694*^9, 3.5349624910757236`*^9}, {
   3.5349625224057674`*^9, 3.534962522655768*^9}, {3.534965265519608*^9, 
   3.534965265519608*^9}, {3.5349668288168063`*^9, 3.5349668292668066`*^9}, {
   3.5349747358481646`*^9, 3.5349747358481646`*^9}, {3.534975457949176*^9, 
   3.534975457949176*^9}, {3.5368633963532934`*^9, 3.536863396571694*^9}, {
   3.541644322511304*^9, 3.5416443577513533`*^9}, {3.5416458269234104`*^9, 
   3.541645839633428*^9}, {3.5416460312236967`*^9, 3.541646031483697*^9}, 
   3.541646227783972*^9, {3.541647080335165*^9, 3.5416471077052035`*^9}, {
   3.541648997607849*^9, 3.5416489978278494`*^9}, 3.541649088407976*^9, {
   3.5417848711596775`*^9, 3.541784902429721*^9}, {3.541786145331461*^9, 
   3.5417861455914617`*^9}, {3.5417870037166634`*^9, 3.5417870039366636`*^9}, 
   3.5462979620242105`*^9, {3.546298264094633*^9, 3.546298265344635*^9}, {
   3.546299000235664*^9, 3.546299001505666*^9}, {3.546315119909564*^9, 
   3.5463151267659564`*^9}, {3.547227356319705*^9, 3.547227356319705*^9}, 
   3.547918559331044*^9, {3.547918610170952*^9, 3.5479186304411116`*^9}, 
   3.548537755517557*^9, 3.5485441629685287`*^9, 3.5485517520154133`*^9, {
   3.5488740727887154`*^9, 3.5488740727887154`*^9}, {3.548874206618903*^9, 
   3.548874206808903*^9}, 3.548877100795455*^9, 3.550596464087599*^9, {
   3.5505965767870445`*^9, 3.5505965767870445`*^9}, 3.5505966202465305`*^9, {
   3.5506039138305197`*^9, 3.55060391400453*^9}, {3.5506040039986773`*^9, 
   3.550604005776779*^9}, {3.5506178888272758`*^9, 3.5506178900273447`*^9}, {
   3.550770598144562*^9, 3.550770659629079*^9}, {3.5507707252908344`*^9, 
   3.5507707474461017`*^9}, 3.5507880023630266`*^9, {3.5508017696214375`*^9, 
   3.5508017788269644`*^9}, {3.5508018116158395`*^9, 3.5508018116158395`*^9}, 
   3.5508018976437597`*^9, {3.5508021384015307`*^9, 3.550802155115487*^9}, {
   3.5508022151019173`*^9, 3.5508022151019173`*^9}, {3.550802487106476*^9, 
   3.5508025179152374`*^9}, {3.5508029261175857`*^9, 
   3.5508029342300496`*^9}, {3.5521511708590136`*^9, 3.5521511712334137`*^9}, 
   3.552151666269083*^9, {3.5535324250863676`*^9, 3.553532441643315*^9}, {
   3.553532476791325*^9, 3.553532477502366*^9}, {3.5535325810722895`*^9, 
   3.5535325810722895`*^9}, {3.553534924419321*^9, 3.5535349316017323`*^9}, {
   3.5535606916294093`*^9, 3.553560715209442*^9}, {3.553560906999711*^9, 
   3.553560912889719*^9}, {3.5535610183798666`*^9, 3.5535610197098684`*^9}, {
   3.553561508580553*^9, 3.553561525080576*^9}, {3.5535615930406713`*^9, 
   3.5535616035406857`*^9}, {3.554910910997098*^9, 3.554910915757105*^9}, {
   3.5549117484282703`*^9, 3.5549117605482874`*^9}, {3.554912730909646*^9, 
   3.5549127360396533`*^9}, {3.5549136721909637`*^9, 3.5549136721909637`*^9}, 
   3.5549142300017447`*^9, {3.5549148747526474`*^9, 3.5549148749626474`*^9}, {
   3.554915220933132*^9, 3.5549152220731335`*^9}, {3.554915692683792*^9, 
   3.5549156980938*^9}, {3.5549176897465887`*^9, 3.5549176899465885`*^9}, 
   3.554920330620288*^9, {3.554925596005664*^9, 3.554925597395666*^9}, {
   3.554926982447605*^9, 3.5549270074976406`*^9}, 3.55509790030145*^9, 
   3.5853368163522477`*^9, {3.5853381538441205`*^9, 3.5853381746841497`*^9}, 
   3.585338443534526*^9, 3.5853498590510435`*^9, 3.5853508170223846`*^9, 
   3.5853521853768*^9, {3.5853523370670123`*^9, 3.5853523370670123`*^9}, {
   3.5853524453971643`*^9, 3.5853524453971643`*^9}, 3.5861901487730455`*^9, {
   3.5861908854340773`*^9, 3.5861908854340773`*^9}, {3.586194076809165*^9, 
   3.5861940770291653`*^9}, 3.5861941184592257`*^9, {3.5861941532917776`*^9, 
   3.58619418231432*^9}, {3.586202313133654*^9, 3.5862023177236605`*^9}, 
   3.586288566680663*^9, {3.5862896536922264`*^9, 3.5862896538422265`*^9}, {
   3.5864006838912168`*^9, 3.5864006893824263`*^9}, {3.586401728765452*^9, 
   3.586401734475062*^9}, 3.586401976369087*^9, 3.5864611109004707`*^9, {
   3.586461147560522*^9, 3.586461170350554*^9}, {3.6200067509666376`*^9, 
   3.62000675798665*^9}, {3.6200068591372275`*^9, 3.6200068646128373`*^9}, 
   3.620014124483536*^9, {3.620016771655946*^9, 3.6200168087250657`*^9}, 
   3.62001737683356*^9, 3.6219773123169355`*^9, 3.6219777979447117`*^9, {
   3.6219781402972937`*^9, 3.6219781402972937`*^9}, 3.6219788088315315`*^9, 
   3.622416561917349*^9, 3.6224204154207563`*^9, 3.7177361702996826`*^9, {
   3.7177368110663323`*^9, 3.7177368110663323`*^9}, 3.7179747172990475`*^9, 
   3.717974788944145*^9, 3.7179753303261104`*^9, {3.7179754143449163`*^9, 
   3.7179754143449163`*^9}, {3.717977146141969*^9, 3.7179771560305347`*^9}, 
   3.717979837708918*^9, {3.7179804539541655`*^9, 3.717980457251354*^9}, 
   3.7239474703420916`*^9, {3.723947572962961*^9, 3.7239475922740655`*^9}, 
   3.7461206999185205`*^9},
 FontSize->12,
 FontWeight->"Bold"],

Cell["Derivation: Piecewise constant extraction", "Subsubsection",
 CellChangeTimes->{
  3.4941724567488375`*^9, 3.494172818179343*^9, {3.586461195350589*^9, 
   3.586461209440609*^9}}],

Cell[TextData[{
 "Basis: ",
 Cell[BoxData[
  RowBox[{
   RowBox[{
    SubscriptBox["\[PartialD]", "x"], 
    FractionBox[
     SqrtBox[
      RowBox[{"1", "+", 
       RowBox[{
        FractionBox["e", "d"], " ", 
        SuperscriptBox["x", "2"]}]}]], 
     SqrtBox[
      RowBox[{"d", "+", 
       RowBox[{"e", " ", 
        SuperscriptBox["x", "2"]}]}]]]}], "\[Equal]", "0"}]]]
}], "Subsubsection",
 CellChangeTimes->{
  3.4941724567488375`*^9, {3.494172818179343*^9, 3.494172835289367*^9}, 
   3.4941728817394323`*^9, {3.4941732517099504`*^9, 3.4941732592199607`*^9}, {
   3.4941867403328547`*^9, 3.494186750597673*^9}, {3.494188482910461*^9, 
   3.494188485702866*^9}, 3.494188591549052*^9, {3.49418864176554*^9, 
   3.49418864750635*^9}, {3.4941887057880526`*^9, 3.494188733883702*^9}, {
   3.494189069767892*^9, 3.4941891152419715`*^9}, {3.494198042823061*^9, 
   3.494198045428265*^9}, {3.494198409922906*^9, 3.4941984537277822`*^9}, 
   3.494198500746265*^9, {3.494198552556757*^9, 3.4941985875008183`*^9}, {
   3.4941986433645163`*^9, 3.4941986981050124`*^9}, {3.494198728727866*^9, 
   3.4941987591167192`*^9}, {3.5537064027639275`*^9, 
   3.5537064046439295`*^9}, {3.554908854828027*^9, 3.554908868042783*^9}, {
   3.5549109334971294`*^9, 3.5549109334971294`*^9}, {3.5549110429772825`*^9, 
   3.5549110441072845`*^9}, {3.5549110833573394`*^9, 
   3.5549111307074056`*^9}, {3.5549112286175427`*^9, 3.554911238587557*^9}, {
   3.554911286387624*^9, 3.5549112873876247`*^9}, {3.5549113838077602`*^9, 
   3.5549114191978097`*^9}, {3.5549115160579453`*^9, 3.554911528097962*^9}, {
   3.554911828468383*^9, 3.5549118320683875`*^9}, {3.5549119348885317`*^9, 
   3.5549119841686*^9}, {3.5549120405586796`*^9, 3.5549120483786907`*^9}, {
   3.5549121415488205`*^9, 3.5549121415488205`*^9}, {3.554912225098938*^9, 
   3.554912225098938*^9}, {3.5549123761691494`*^9, 3.5549123761691494`*^9}, {
   3.5549125249193573`*^9, 3.5549125249193573`*^9}, {3.5549142618417892`*^9, 
   3.5549142792618136`*^9}, {3.55491571956383*^9, 3.5549157212938323`*^9}, {
   3.554915859274026*^9, 3.554915859274026*^9}, {3.554915945724147*^9, 
   3.5549159712741823`*^9}, {3.5853384454645286`*^9, 
   3.5853384579245462`*^9}, {3.5853498590610433`*^9, 
   3.5853498590810432`*^9}, {3.5853508170323844`*^9, 
   3.5853508170323844`*^9}, {3.5853521853868*^9, 3.5853521853868*^9}, {
   3.5853529303178425`*^9, 3.5853529303178425`*^9}, {3.5853542331896667`*^9, 
   3.5853542352296696`*^9}, {3.5861901487830453`*^9, 
   3.5861901488030453`*^9}, {3.5861908863940787`*^9, 
   3.5861908863940787`*^9}, {3.5861941184792256`*^9, 
   3.5861941184792256`*^9}, {3.586194358819577*^9, 3.586194358819577*^9}, {
   3.5862016958877897`*^9, 3.5862017000477953`*^9}, {3.5862018028929396`*^9, 
   3.58620182493297*^9}, {3.5862018838730526`*^9, 3.5862018838730526`*^9}, {
   3.5862019758631816`*^9, 3.5862019758631816`*^9}, {3.5862020312832594`*^9, 
   3.58620203177326*^9}, {3.5862021078133664`*^9, 3.586202109483369*^9}, {
   3.5864007165732746`*^9, 3.5864007165732746`*^9}, {3.586400813792645*^9, 
   3.586400882807166*^9}, {3.586461221190625*^9, 3.586461221190625*^9}, {
   3.586461424140909*^9, 3.586461424140909*^9}, {3.62001695355435*^9, 
   3.6200169685462074`*^9}, {3.6219777988727655`*^9, 
   3.6219777988727655`*^9}, {3.6219781691999464`*^9, 
   3.6219781691999464`*^9}, {3.7177371909990635`*^9, 
   3.7177371909990635`*^9}, {3.7179753309401455`*^9, 
   3.7179753309401455`*^9}, {3.7179754155179834`*^9, 
   3.7179754155179834`*^9}, {3.7179754596145053`*^9, 
   3.7179754596145053`*^9}, {3.7179772650867724`*^9, 
   3.7179772650877724`*^9}, {3.723947531255575*^9, 3.723947531255575*^9}}],

Cell[TextData[{
 "Rule: If  ",
 Cell[BoxData[
  RowBox[{"d", "\[NotGreater]", "0"}]]],
 ", then"
}], "Subsubsection",
 CellDingbat->"\[FilledSmallSquare]",
 CellChangeTimes->{{3.4794189093216*^9, 3.479418932274605*^9}, {
   3.479418981395237*^9, 3.4794189822564754`*^9}, {3.4794192068193808`*^9, 
   3.4794192077607346`*^9}, 3.479420089138093*^9, {3.479420130978256*^9, 
   3.4794201410627565`*^9}, {3.479420560345656*^9, 3.479420578171288*^9}, {
   3.479420683943381*^9, 3.4794206847645617`*^9}, {3.4794210347678413`*^9, 
   3.4794210503903055`*^9}, 3.4803613662913427`*^9, {3.480361406058525*^9, 
   3.48036141974821*^9}, {3.4803614672865667`*^9, 3.480361474717252*^9}, 
   3.48070534977779*^9, {3.4928296953212276`*^9, 3.492829707041244*^9}, 
   3.4941724084687696`*^9, 3.4941724567488375`*^9, {3.4941737492506466`*^9, 
   3.4941737506706486`*^9}, {3.494173966810951*^9, 3.494174007671008*^9}, {
   3.4941741326011834`*^9, 3.4941741425911975`*^9}, {3.4941767936905165`*^9, 
   3.494176809630539*^9}, {3.4941773316412697`*^9, 3.494177333751273*^9}, {
   3.4941891756608777`*^9, 3.494189178765283*^9}, {3.494196711119521*^9, 
   3.4941967113535213`*^9}, {3.4941972738717093`*^9, 
   3.4941972799089203`*^9}, {3.49420053403185*^9, 3.494200549361871*^9}, {
   3.5549127564596815`*^9, 3.5549127564596815`*^9}, {3.554913675900969*^9, 
   3.554913675900969*^9}, {3.554916014344243*^9, 3.5549160145642433`*^9}, {
   3.5549256011256714`*^9, 3.5549256025256734`*^9}, {3.554927024457664*^9, 
   3.554927024457664*^9}, {3.5853384776645737`*^9, 3.5853384776645737`*^9}, {
   3.585352337077012*^9, 3.585352337077012*^9}, {3.5853524453971643`*^9, 
   3.5853524453971643`*^9}, {3.58619088728408*^9, 3.58619088728408*^9}, {
   3.5861941533017774`*^9, 3.58619418232432*^9}, {3.5862023214736657`*^9, 
   3.586202321633666*^9}, {3.586461191960584*^9, 3.586461191960584*^9}, {
   3.6200068760788574`*^9, 3.6200068760788574`*^9}, {3.6200168202217236`*^9, 
   3.6200168202217236`*^9}, {3.6219781422504053`*^9, 
   3.6219781422504053`*^9}, {3.7177368133284616`*^9, 
   3.7177368133284616`*^9}, {3.717975418873175*^9, 3.717975418874175*^9}, {
   3.7179771602057734`*^9, 3.7179771602057734`*^9}, {3.717980467513941*^9, 
   3.717980467513941*^9}, {3.7239475995094795`*^9, 3.7239475995094795`*^9}}],

Cell[BoxData[
 RowBox[{"\[Integral]", 
  RowBox[{
   FractionBox[
    RowBox[{"a", "+", 
     RowBox[{"b", " ", 
      RowBox[{"Log", "[", 
       RowBox[{"c", " ", 
        SuperscriptBox["x", "n"]}], "]"}]}]}], 
    SqrtBox[
     RowBox[{"d", "+", 
      RowBox[{"e", " ", 
       SuperscriptBox["x", "2"]}]}]]], 
   RowBox[{"\[DifferentialD]", 
    RowBox[{"x", "  ", "\[LongRightArrow]", "  ", 
     FractionBox[
      SqrtBox[
       RowBox[{"1", "+", 
        RowBox[{
         FractionBox["e", "d"], " ", 
         SuperscriptBox["x", "2"]}]}]], 
      SqrtBox[
       RowBox[{"d", "+", 
        RowBox[{"e", " ", 
         SuperscriptBox["x", "2"]}]}]]]}]}], " ", 
   RowBox[{"\[Integral]", 
    RowBox[{
     FractionBox[
      RowBox[{"a", "+", 
       RowBox[{"b", " ", 
        RowBox[{"Log", "[", 
         RowBox[{"c", " ", 
          SuperscriptBox["x", "n"]}], "]"}]}]}], 
      SqrtBox[
       RowBox[{"1", "+", 
        RowBox[{
         FractionBox["e", "d"], " ", 
         SuperscriptBox["x", "2"]}]}]]], 
     RowBox[{"\[DifferentialD]", "x"}]}]}]}]}]], "Subsubtitle",
 CellDingbat->None,
 CellChangeTimes->{{3.4796579732027807`*^9, 3.479658002474872*^9}, {
   3.4796580599975853`*^9, 3.4796580609489536`*^9}, {3.479658295195784*^9, 
   3.47965829684816*^9}, 3.4796611938939075`*^9, 3.4796613924794593`*^9, {
   3.479661443342597*^9, 3.479661446647349*^9}, {3.479661576554146*^9, 
   3.479661589302477*^9}, 3.479661847553824*^9, {3.4796622294729967`*^9, 
   3.4796622450654173`*^9}, {3.479686720424531*^9, 3.4796867204345455`*^9}, {
   3.4796874646646957`*^9, 3.4796874745589232`*^9}, {3.492826573513727*^9, 
   3.492826578630536*^9}, {3.4928267070863624`*^9, 3.492826707460763*^9}, 
   3.4928267903497095`*^9, {3.492829799151373*^9, 3.4928299617216005`*^9}, {
   3.4940972077187414`*^9, 3.4940972347887793`*^9}, {3.49409966398218*^9, 
   3.494099664952181*^9}, {3.4940997156722527`*^9, 3.494099716112253*^9}, 
   3.4941724567488375`*^9, {3.4941727384192314`*^9, 3.494172760679263*^9}, {
   3.4941763955899596`*^9, 3.4941764290900064`*^9}, {3.4941764605500507`*^9, 
   3.4941764930400963`*^9}, 3.4941770641708956`*^9, 3.494177118590972*^9, {
   3.4941890257602143`*^9, 3.4941890417814426`*^9}, {3.494189320351132*^9, 
   3.4941893689764175`*^9}, {3.4941960634447823`*^9, 3.494196109948464*^9}, {
   3.494196492625537*^9, 3.4941965253075943`*^9}, {3.4941967717568274`*^9, 
   3.4941967891820583`*^9}, {3.494198824027233*^9, 3.4941988799065313`*^9}, {
   3.5549115691980195`*^9, 3.5549115968580585`*^9}, {3.554912582239438*^9, 
   3.5549126668695564`*^9}, 3.5549143340718904`*^9, 3.554915363633332*^9, {
   3.5549160241442566`*^9, 3.5549160479042897`*^9}, {3.5853384480945325`*^9, 
   3.5853384610045505`*^9}, {3.5853498590910435`*^9, 3.5853498590910435`*^9}, 
   3.585350817042384*^9, 3.5853521853968*^9, 3.5853529303278427`*^9, {
   3.585354238209674*^9, 3.585354240279677*^9}, {3.5861901488130455`*^9, 
   3.5861901488130455`*^9}, 3.586190888104081*^9, 3.5861941184992256`*^9, 
   3.5861943588495774`*^9, {3.5862018865830564`*^9, 3.586201902763079*^9}, {
   3.5862020968933516`*^9, 3.5862021299133973`*^9}, {3.586400956080495*^9, 
   3.5864009763761306`*^9}, {3.5864614524109488`*^9, 3.586461466790969*^9}, {
   3.6200067649442625`*^9, 3.6200067764258823`*^9}, {3.6200141269256754`*^9, 
   3.6200141305588837`*^9}, {3.6200168382997575`*^9, 3.6200168467842426`*^9}, 
   3.620016894515973*^9, {3.6200169292639604`*^9, 3.620016946552949*^9}, 
   3.6200170135917835`*^9, {3.6219777999798284`*^9, 3.621977820956028*^9}, {
   3.6219781977015767`*^9, 3.6219781998907022`*^9}, 3.7177361710547256`*^9, {
   3.7177368286903405`*^9, 3.7177368472204003`*^9}, 3.7179747898281956`*^9, 
   3.717975152108917*^9, {3.7179753316891885`*^9, 3.717975332297223*^9}, {
   3.717975419809229*^9, 3.717975421041299*^9}, {3.7179754641937675`*^9, 
   3.7179754674499536`*^9}, {3.717977205931389*^9, 3.717977249849901*^9}, {
   3.717977279994625*^9, 3.717977290450223*^9}, 3.7179773870617495`*^9, {
   3.7239474745193305`*^9, 3.7239475119204693`*^9}},
 TextAlignment->Center,
 FontSize->12,
 FontWeight->"Bold"],

Cell["Program code:", "Subsubsection",
 CellDingbat->"\[FilledSmallSquare]",
 CellChangeTimes->{{3.4794189093216*^9, 3.479418932274605*^9}, {
   3.479418981395237*^9, 3.4794189822564754`*^9}, {3.4794192068193808`*^9, 
   3.4794192077607346`*^9}, 3.479420089138093*^9, {3.479420130978256*^9, 
   3.4794201410627565`*^9}, {3.479420560345656*^9, 3.479420578171288*^9}, {
   3.479420683943381*^9, 3.4794206847645617`*^9}, {3.4794210347678413`*^9, 
   3.4794210503903055`*^9}, 3.4803613662913427`*^9, {3.480361406058525*^9, 
   3.48036141974821*^9}, {3.4803614672865667`*^9, 3.480361474717252*^9}, 
   3.4807050675119123`*^9, {3.492804314166378*^9, 3.4928043441496305`*^9}, {
   3.4928044532166224`*^9, 3.492804453513023*^9}, {3.492805162266266*^9, 
   3.492805165713872*^9}, 3.4941724567488375`*^9}],

Cell[BoxData[
 RowBox[{
  RowBox[{"Int", "[", 
   RowBox[{
    RowBox[{
     RowBox[{"(", 
      RowBox[{"a_.", "+", 
       RowBox[{"b_.", "*", 
        RowBox[{"Log", "[", 
         RowBox[{"c_.", "*", 
          RowBox[{"x_", "^", "n_."}]}], "]"}]}]}], ")"}], "/", 
     RowBox[{"Sqrt", "[", 
      RowBox[{"d_", "+", 
       RowBox[{"e_.", "*", 
        RowBox[{"x_", "^", "2"}]}]}], "]"}]}], ",", "x_Symbol"}], "]"}], " ", 
  ":=", "\n", "  ", 
  RowBox[{
   RowBox[{
    RowBox[{
     RowBox[{"Sqrt", "[", 
      RowBox[{"1", "+", 
       RowBox[{
        RowBox[{"e", "/", "d"}], "*", 
        RowBox[{"x", "^", "2"}]}]}], "]"}], "/", 
     RowBox[{"Sqrt", "[", 
      RowBox[{"d", "+", 
       RowBox[{"e", "*", 
        RowBox[{"x", "^", "2"}]}]}], "]"}]}], "*", 
    RowBox[{"Int", "[", 
     RowBox[{
      RowBox[{
       RowBox[{"(", 
        RowBox[{"a", "+", 
         RowBox[{"b", "*", 
          RowBox[{"Log", "[", 
           RowBox[{"c", "*", 
            RowBox[{"x", "^", "n"}]}], "]"}]}]}], ")"}], "/", 
       RowBox[{"Sqrt", "[", 
        RowBox[{"1", "+", 
         RowBox[{
          RowBox[{"e", "/", "d"}], "*", 
          RowBox[{"x", "^", "2"}]}]}], "]"}]}], ",", "x"}], "]"}]}], " ", "/;",
    "\n", 
   RowBox[{
    RowBox[{"FreeQ", "[", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{"a", ",", "b", ",", "c", ",", "d", ",", "e", ",", "n"}], "}"}],
       ",", "x"}], "]"}], " ", "&&", " ", 
    RowBox[{"Not", "[", 
     RowBox[{"GtQ", "[", 
      RowBox[{"d", ",", "0"}], "]"}], "]"}]}]}]}]], "Code",
 CellChangeTimes->{{3.5505943108164387`*^9, 3.550594318740892*^9}, {
   3.550630675312621*^9, 3.5506306841181245`*^9}, {3.5506855841677713`*^9, 
   3.5506855906431417`*^9}, {3.550686654545994*^9, 3.550686658912243*^9}, 
   3.551727745886137*^9, {3.551727845166276*^9, 3.551727871486313*^9}, 
   3.551727924156387*^9, {3.5517280125265102`*^9, 3.551728021626523*^9}, {
   3.55172863344738*^9, 3.5517286541774087`*^9}, {3.5517290839280105`*^9, 
   3.551729091448021*^9}, {3.5729812378261175`*^9, 3.5729812382473183`*^9}, {
   3.5729812882766066`*^9, 3.572981380971969*^9}, {3.572981453746097*^9, 
   3.572981464042115*^9}, {3.5729816743460846`*^9, 3.5729816755784864`*^9}, 
   3.5729817170589595`*^9, {3.5729902292216225`*^9, 3.5729902676416764`*^9}, {
   3.621813882678424*^9, 3.6218138976462803`*^9}, {3.622417140623449*^9, 
   3.6224172550949965`*^9}, {3.622417381092203*^9, 3.622417384782414*^9}, {
   3.6224175484517756`*^9, 3.6224175924302907`*^9}, 3.6414122927224007`*^9, {
   3.6719241522872095`*^9, 3.6719241591946044`*^9}, 3.6719242520999184`*^9, 
   3.672080452319423*^9, {3.715124574830159*^9, 3.715124576882265*^9}, {
   3.7177364461134586`*^9, 3.7177364620153675`*^9}, {3.7177365033147297`*^9, 
   3.717736540252843*^9}, 3.717974929614191*^9, {3.7179749716495953`*^9, 
   3.717974972449641*^9}, {3.717975183547715*^9, 3.717975184166751*^9}, {
   3.7179752887557325`*^9, 3.717975289007747*^9}, {3.717975357168646*^9, 
   3.717975358677732*^9}, {3.7179754072875123`*^9, 3.717975413430864*^9}, {
   3.71797544780683*^9, 3.7179754523110876`*^9}, {3.717977035939666*^9, 
   3.717977120935528*^9}, {3.7179787146456823`*^9, 3.717978778574339*^9}, {
   3.7192648240197134`*^9, 3.7192648339602823`*^9}, {3.719268338808748*^9, 
   3.7192683496183662`*^9}, {3.7239470244935913`*^9, 3.723947054846328*^9}, 
   3.7239473237457075`*^9, {3.7239474285587015`*^9, 3.723947433485983*^9}, {
   3.7239477277008114`*^9, 3.7239477581715546`*^9}, 3.7240069703077736`*^9},
 Background->GrayLevel[0.85]],

Cell[BoxData[
 RowBox[{
  RowBox[{"Int", "[", 
   RowBox[{
    RowBox[{
     RowBox[{"(", 
      RowBox[{"a_.", "+", 
       RowBox[{"b_.", "*", 
        RowBox[{"Log", "[", 
         RowBox[{"c_.", "*", 
          RowBox[{"x_", "^", "n_."}]}], "]"}]}]}], ")"}], "/", 
     RowBox[{"(", 
      RowBox[{
       RowBox[{"Sqrt", "[", 
        RowBox[{"d1_", "+", 
         RowBox[{"e1_.", "*", "x_"}]}], "]"}], "*", 
       RowBox[{"Sqrt", "[", 
        RowBox[{"d2_", "+", 
         RowBox[{"e2_.", "*", "x_"}]}], "]"}]}], ")"}]}], ",", "x_Symbol"}], 
   "]"}], " ", ":=", "\n", "  ", 
  RowBox[{
   RowBox[{
    RowBox[{
     RowBox[{"Sqrt", "[", 
      RowBox[{"1", "+", 
       RowBox[{"e1", "*", 
        RowBox[{"e2", "/", 
         RowBox[{"(", 
          RowBox[{"d1", "*", "d2"}], ")"}]}], "*", 
        RowBox[{"x", "^", "2"}]}]}], "]"}], "/", 
     RowBox[{"(", 
      RowBox[{
       RowBox[{"Sqrt", "[", 
        RowBox[{"d1", "+", 
         RowBox[{"e1", "*", "x"}]}], "]"}], "*", 
       RowBox[{"Sqrt", "[", 
        RowBox[{"d2", "+", 
         RowBox[{"e2", "*", "x"}]}], "]"}]}], ")"}]}], "*", 
    RowBox[{"Int", "[", 
     RowBox[{
      RowBox[{
       RowBox[{"(", 
        RowBox[{"a", "+", 
         RowBox[{"b", "*", 
          RowBox[{"Log", "[", 
           RowBox[{"c", "*", 
            RowBox[{"x", "^", "n"}]}], "]"}]}]}], ")"}], "/", 
       RowBox[{"Sqrt", "[", 
        RowBox[{"1", "+", 
         RowBox[{"e1", "*", 
          RowBox[{"e2", "/", 
           RowBox[{"(", 
            RowBox[{"d1", "*", "d2"}], ")"}]}], "*", 
          RowBox[{"x", "^", "2"}]}]}], "]"}]}], ",", "x"}], "]"}]}], " ", "/;",
    "\n", 
   RowBox[{
    RowBox[{"FreeQ", "[", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{
       "a", ",", "b", ",", "c", ",", "d1", ",", "e1", ",", "d2", ",", "e2", 
        ",", "n"}], "}"}], ",", "x"}], "]"}], " ", "&&", " ", 
    RowBox[{"EqQ", "[", 
     RowBox[{
      RowBox[{
       RowBox[{"d2", "*", "e1"}], "+", 
       RowBox[{"d1", "*", "e2"}]}], ",", "0"}], "]"}]}]}]}]], "Code",
 CellChangeTimes->{{3.5505943108164387`*^9, 3.550594318740892*^9}, {
   3.550630675312621*^9, 3.5506306841181245`*^9}, {3.5506855841677713`*^9, 
   3.5506855906431417`*^9}, {3.550686654545994*^9, 3.550686658912243*^9}, 
   3.551727745886137*^9, {3.551727845166276*^9, 3.551727871486313*^9}, 
   3.551727924156387*^9, {3.5517280125265102`*^9, 3.551728021626523*^9}, {
   3.55172863344738*^9, 3.5517286541774087`*^9}, {3.5517290839280105`*^9, 
   3.551729091448021*^9}, {3.5729812378261175`*^9, 3.5729812382473183`*^9}, {
   3.5729812882766066`*^9, 3.572981380971969*^9}, {3.572981453746097*^9, 
   3.572981464042115*^9}, {3.5729816743460846`*^9, 3.5729816755784864`*^9}, 
   3.5729817170589595`*^9, {3.5729902292216225`*^9, 3.5729902676416764`*^9}, {
   3.621813882678424*^9, 3.6218138976462803`*^9}, {3.622417140623449*^9, 
   3.6224172550949965`*^9}, {3.622417381092203*^9, 3.622417384782414*^9}, {
   3.6224175484517756`*^9, 3.6224175924302907`*^9}, 3.6414122927224007`*^9, {
   3.6719238864710054`*^9, 3.6719240399747853`*^9}, 3.6719241681301155`*^9, 
   3.671924256695181*^9, {3.6719248220985203`*^9, 3.6719248509031677`*^9}, {
   3.6719248811778994`*^9, 3.6719249371411004`*^9}, {3.705192198991973*^9, 
   3.705192201057091*^9}, 3.7177368765000753`*^9, 3.717736963985079*^9, {
   3.7177370209063344`*^9, 3.7177370763105035`*^9}, {3.7177371092723885`*^9, 
   3.7177371303355937`*^9}, {3.7177372496384172`*^9, 3.7177372769379787`*^9}, 
   3.7186742212687073`*^9, {3.7192639224421463`*^9, 3.719263988134904*^9}, {
   3.7192640518835497`*^9, 3.7192641708773556`*^9}, {3.719264241222379*^9, 
   3.719264285266898*^9}, {3.7192646914521313`*^9, 3.719264702873784*^9}, {
   3.719264870663381*^9, 3.7192648726054926`*^9}, {3.7192656402704*^9, 
   3.719265643714597*^9}, {3.724289502030329*^9, 3.724289541533589*^9}, {
   3.724289583504989*^9, 3.7242896553470984`*^9}, {3.724289686917904*^9, 
   3.7242897275322275`*^9}},
 Background->GrayLevel[0.85]],

Cell["", "Subsubsection",
 CellDingbat->None,
 CellChangeTimes->{3.4796643211106243`*^9, 3.4941724567488375`*^9}]
}, Closed]]
}, Closed]]
}, Closed]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{Cell[TextData[StyleBox["5:",
   FontFamily->"Arial",
   FontColor->RGBColor[1, 0, 0]]], "None"], "  ", 
  RowBox[{"\[Integral]", 
   RowBox[{
    SuperscriptBox[
     RowBox[{"(", 
      RowBox[{"d", "+", 
       RowBox[{"e", " ", 
        SuperscriptBox["x", "r"]}]}], ")"}], "q"], " ", 
    RowBox[{"(", 
     RowBox[{"a", "+", 
      RowBox[{"b", " ", 
       RowBox[{"Log", "[", 
        RowBox[{"c", " ", 
         SuperscriptBox["x", "n"]}], "]"}]}]}], ")"}], 
    RowBox[{"\[DifferentialD]", "x"}], "  ", 
    StyleBox["when",
     FontFamily->"Arial",
     FontWeight->"Plain"], 
    StyleBox["  ",
     FontFamily->"Arial",
     FontWeight->"Plain"], Cell[TextData[Cell[BoxData[
     RowBox[{
      RowBox[{
       RowBox[{"2", " ", "q"}], "\[Element]", "\[DoubleStruckCapitalZ]"}], 
      " ", "\[And]", " ", 
      RowBox[{"r", "\[Element]", "\[DoubleStruckCapitalZ]"}]}]]]], 
     "None"]}]}]}]], "Subsubtitle",
 CellDingbat->None,
 CellChangeTimes->{
  3.477935275784027*^9, {3.477935350060832*^9, 3.477935352384173*^9}, {
   3.477935393803731*^9, 3.477935400102789*^9}, {3.477935515378547*^9, 
   3.47793552034569*^9}, 3.478120029940968*^9, {3.479318860690858*^9, 
   3.47931886615872*^9}, {3.4794185033278093`*^9, 3.479418503918659*^9}, 
   3.4795122294117584`*^9, {3.479615913307893*^9, 3.4796159352794867`*^9}, 
   3.4796160386581373`*^9, 3.4796867204045024`*^9, {3.4928025699585147`*^9, 
   3.492802570130115*^9}, 3.492822274480175*^9, 3.492825822242408*^9, {
   3.4940970615585365`*^9, 3.494097062168537*^9}, {3.496441349250718*^9, 
   3.496441349830719*^9}, 3.4964414848609076`*^9, 3.496521708137803*^9, {
   3.4965218981240697`*^9, 3.49652189838407*^9}, 3.4965229070755*^9, 
   3.519247079685614*^9, {3.5193208582062006`*^9, 3.5193208612170057`*^9}, 
   3.5193325694253187`*^9, {3.5193422443984776`*^9, 3.5193422447260776`*^9}, 
   3.5193424488212357`*^9, {3.5193434708254333`*^9, 3.519343473103037*^9}, {
   3.5193435097631016`*^9, 3.51934353169674*^9}, {3.519345739319023*^9, 
   3.519345739599823*^9}, 3.5193462601259375`*^9, {3.5193475061060295`*^9, 
   3.5193475233908596`*^9}, {3.519351391880224*^9, 3.5193513931402254`*^9}, {
   3.519403773021052*^9, 3.5194037798564425`*^9}, 3.5194106793250647`*^9, {
   3.519537578341393*^9, 3.5195375792305946`*^9}, {3.5195376277778797`*^9, 
   3.51953767927357*^9}, {3.5197586260636144`*^9, 3.5197586260636144`*^9}, {
   3.51978053295651*^9, 3.519780542862528*^9}, {3.5197806526087203`*^9, 
   3.5197806657595434`*^9}, {3.5197807490168896`*^9, 3.5197807642581167`*^9}, 
   3.5197809004619555`*^9, {3.519782653514635*^9, 3.5197826623286505`*^9}, {
   3.5200207810164795`*^9, 3.520020785046485*^9}, {3.5213126833374643`*^9, 
   3.5213126833374643`*^9}, {3.521328235411002*^9, 3.521328235411002*^9}, {
   3.523315567893022*^9, 3.523315567893022*^9}, {3.5233157569332867`*^9, 
   3.5233157613032923`*^9}, {3.5323023198133526`*^9, 3.532302355723403*^9}, {
   3.5323026417638035`*^9, 3.5323026417638035`*^9}, {3.5323026980138817`*^9, 
   3.5323026980138817`*^9}, {3.532636287104328*^9, 3.532636287104328*^9}, {
   3.5330803686035347`*^9, 3.533080368863535*^9}, {3.533248909289961*^9, 
   3.5332489110299635`*^9}, {3.534962469565694*^9, 3.5349624910757236`*^9}, {
   3.5349625224057674`*^9, 3.534962522655768*^9}, {3.534965265519608*^9, 
   3.534965265519608*^9}, {3.5349668288168063`*^9, 3.5349668292668066`*^9}, {
   3.5349747358481646`*^9, 3.5349747358481646`*^9}, {3.534975457949176*^9, 
   3.534975457949176*^9}, {3.5368633963532934`*^9, 3.536863396571694*^9}, {
   3.541644322511304*^9, 3.5416443577513533`*^9}, {3.5416458269234104`*^9, 
   3.541645839633428*^9}, {3.5416460312236967`*^9, 3.541646031483697*^9}, 
   3.541646227783972*^9, {3.541647080335165*^9, 3.5416471077052035`*^9}, {
   3.541648997607849*^9, 3.5416489978278494`*^9}, 3.541649088407976*^9, {
   3.5417848711596775`*^9, 3.541784902429721*^9}, {3.541786145331461*^9, 
   3.5417861455914617`*^9}, {3.5417870037166634`*^9, 3.5417870039366636`*^9}, 
   3.5462979620242105`*^9, {3.546298264094633*^9, 3.546298265344635*^9}, {
   3.546299000235664*^9, 3.546299001505666*^9}, {3.546315119909564*^9, 
   3.5463151267659564`*^9}, {3.547227356319705*^9, 3.547227356319705*^9}, 
   3.547918559331044*^9, {3.547918610170952*^9, 3.5479186304411116`*^9}, 
   3.548537755517557*^9, 3.5485441629685287`*^9, 3.5485517520154133`*^9, {
   3.5488740727887154`*^9, 3.5488740727887154`*^9}, {3.548874206618903*^9, 
   3.548874206808903*^9}, 3.548877100795455*^9, 3.550596464087599*^9, {
   3.5505965767870445`*^9, 3.5505965767870445`*^9}, 3.5505966202465305`*^9, {
   3.5506039138305197`*^9, 3.55060391400453*^9}, {3.5506040039986773`*^9, 
   3.550604005776779*^9}, {3.5506178888272758`*^9, 3.5506178900273447`*^9}, {
   3.5507714128001575`*^9, 3.5507714579237385`*^9}, 3.5507715736503572`*^9, {
   3.550771605757194*^9, 3.550771605757194*^9}, {3.5507784779162593`*^9, 
   3.550778485089669*^9}, {3.5512945755817485`*^9, 3.5512945774348545`*^9}, {
   3.5512950851568947`*^9, 3.551295087206012*^9}, {3.5512951503876257`*^9, 
   3.5512951503876257`*^9}, 3.5521508023707657`*^9, 3.570556429483124*^9, 
   3.570556813913662*^9, {3.570556871323742*^9, 3.5705568726537437`*^9}, {
   3.5705589342766304`*^9, 3.5705589351566315`*^9}, {3.5705726285190425`*^9, 
   3.5705726598690863`*^9}, {3.5705727092291555`*^9, 3.57057271224916*^9}, {
   3.570590818264614*^9, 3.570590830644632*^9}, {3.5705909646248198`*^9, 
   3.5705909676948233`*^9}, {3.5706259368541703`*^9, 
   3.5706259368541703`*^9}, {3.5706261207628937`*^9, 3.5706261259733024`*^9}, 
   3.6219635347757335`*^9, {3.6219636066848464`*^9, 3.6219636066848464`*^9}, 
   3.621963707855633*^9, {3.6219639063569865`*^9, 3.6219639063569865`*^9}, 
   3.621963999584319*^9, {3.621964297837378*^9, 3.621964332188343*^9}, 
   3.621978810333617*^9, {3.702790664787342*^9, 3.702790669151592*^9}, {
   3.702791728371044*^9, 3.702791752929449*^9}, {3.70279180505943*^9, 
   3.7027918059684825`*^9}, {3.702792310843214*^9, 3.7027923216488323`*^9}, {
   3.716146180617201*^9, 3.716146180988222*^9}, 3.716146268281215*^9, 
   3.716147479832512*^9, {3.7161478815074863`*^9, 3.7161478827545576`*^9}, {
   3.716148001980377*^9, 3.7161480022213907`*^9}, {3.7161487310220757`*^9, 
   3.7161487521682854`*^9}, {3.717089552397103*^9, 3.717089555190508*^9}, {
   3.7170897080711775`*^9, 3.7170897080711775`*^9}, 3.7170897786372595`*^9, {
   3.7170898316912937`*^9, 3.717089849503313*^9}, {3.7170903615068755`*^9, 
   3.717090366046135*^9}, {3.7170908333901424`*^9, 3.717090837000349*^9}, {
   3.7170933189428363`*^9, 3.7170933815839467`*^9}, 3.717093582645501*^9, {
   3.7170938977690077`*^9, 3.7170939070062246`*^9}, {3.7170968317616477`*^9, 
   3.7170968334776506`*^9}, {3.7171025150267463`*^9, 3.7171025216275578`*^9}, 
   3.717102558113423*^9, {3.717631877768054*^9, 3.717631877998067*^9}, {
   3.717638713072011*^9, 3.7176387132230196`*^9}, {3.7177017897031126`*^9, 
   3.717701789899124*^9}, {3.7177352608576655`*^9, 3.7177352611366816`*^9}, {
   3.717819826023097*^9, 3.7178198262431097`*^9}, {3.7178832164929333`*^9, 
   3.71788324510557*^9}, {3.7178833260191975`*^9, 3.7178833586220627`*^9}, {
   3.717883444648983*^9, 3.717883468831366*^9}, {3.7178849177682405`*^9, 
   3.717884926823758*^9}, {3.7178849924715133`*^9, 3.7178849924715133`*^9}, {
   3.7178850271264954`*^9, 3.7178850321787844`*^9}, {3.71788576640978*^9, 
   3.717885777916438*^9}, {3.7178862048408566`*^9, 3.717886205019867*^9}, 
   3.7179642461222153`*^9, {3.7179642934709234`*^9, 3.717964295634047*^9}, {
   3.717964345653908*^9, 3.7179643459389243`*^9}, {3.717964716630127*^9, 
   3.717964717691187*^9}, {3.7179647846400166`*^9, 3.7179647851190443`*^9}, {
   3.7179648570291567`*^9, 3.7179648572351685`*^9}, {3.71796899298572*^9, 
   3.71796899839703*^9}, {3.7179798439062724`*^9, 3.717979845644372*^9}, {
   3.7239483821752453`*^9, 3.723948384629386*^9}, {3.724186804209094*^9, 
   3.724186804339094*^9}, {3.724297360818425*^9, 3.724297360972434*^9}, 
   3.7461207010305843`*^9},
 FontSize->12,
 FontWeight->"Bold"],

Cell["Derivation: Integration by parts", "Subsubsection",
 CellChangeTimes->{
  3.479686820458373*^9, {3.490657960122612*^9, 3.49065796095366*^9}, 
   3.4940010628073196`*^9, 3.4941723607787027`*^9, 3.4941724567488375`*^9, 
   3.494172696119172*^9, 3.4951614417343683`*^9, 3.495161553867365*^9, 
   3.49516358311173*^9, 3.4951639989000616`*^9, 3.4951647977306643`*^9, 
   3.4952005105874176`*^9}],

Cell[TextData[{
 "Basis: ",
 Cell[BoxData[
  RowBox[{
   RowBox[{
    SubscriptBox["\[PartialD]", "x"], 
    RowBox[{"(", 
     RowBox[{"a", "+", 
      RowBox[{"b", " ", 
       RowBox[{"Log", "[", 
        RowBox[{"c", " ", 
         SuperscriptBox["x", "n"]}], "]"}]}]}], ")"}]}], "\[Equal]", 
   FractionBox[
    RowBox[{"b", " ", "n"}], "x"]}]],
  CellChangeTimes->{{3.6221403155250196`*^9, 3.622140370488164*^9}}]
}], "Subsubsection",
 CellDingbat->"\[FilledSmallSquare]",
 CellChangeTimes->{{3.4794189093216*^9, 3.479418932274605*^9}, {
   3.479418981395237*^9, 3.4794189822564754`*^9}, {3.4794192068193808`*^9, 
   3.4794192077607346`*^9}, 3.479420089138093*^9, {3.479420130978256*^9, 
   3.4794201410627565`*^9}, {3.479420560345656*^9, 3.479420578171288*^9}, {
   3.479420683943381*^9, 3.4794206847645617`*^9}, {3.4794210347678413`*^9, 
   3.4794210503903055`*^9}, 3.4803613662913427`*^9, {3.480361406058525*^9, 
   3.48036141974821*^9}, {3.4803614672865667`*^9, 3.480361474717252*^9}, 
   3.48070534977779*^9, {3.4928296953212276`*^9, 3.492829707041244*^9}, 
   3.4941724084687696`*^9, 3.4941724567488375`*^9, 3.494172783029294*^9, {
   3.495162076203082*^9, 3.495162102707529*^9}, {3.495162264932214*^9, 
   3.495162277318636*^9}, {3.4951637747120676`*^9, 3.495163775320469*^9}, {
   3.4951642488437004`*^9, 3.4951642509653044`*^9}, {3.4952359429371166`*^9, 
   3.495235964997147*^9}, {3.5507724578719325`*^9, 3.5507724578719325`*^9}, {
   3.551215434154563*^9, 3.5512154381107893`*^9}, {3.5705585033560266`*^9, 
   3.570558505956031*^9}, {3.570562116901086*^9, 3.5705621209010916`*^9}, {
   3.622139814321353*^9, 3.622139815121399*^9}, {3.6221402901635695`*^9, 
   3.6221403037323456`*^9}, {3.6221403610406237`*^9, 3.622140375305439*^9}, {
   3.71765378489107*^9, 3.7176538205501094`*^9}}],

Cell[TextData[{
 "Note: If  ",
 Cell[BoxData[
  RowBox[{
   RowBox[{"q", "-", 
    FractionBox["1", "2"]}], "\[Element]", "\[DoubleStruckCapitalZ]"}]]],
 ", then the terms of ",
 Cell[BoxData[
  RowBox[{"\[Integral]", 
   RowBox[{
    SuperscriptBox[
     RowBox[{"(", 
      RowBox[{"d", "+", 
       RowBox[{"e", " ", "x"}]}], ")"}], "q"], 
    RowBox[{"\[DifferentialD]", "x"}]}]}]],
  CellChangeTimes->{{3.7177808482709*^9, 3.717780873761358*^9}}],
 " will be algebraic functions or constants times an inverse function."
}], "Subsubsection",
 CellDingbat->"\[FilledSmallSquare]",
 CellChangeTimes->{{3.4794189093216*^9, 3.479418932274605*^9}, {
   3.479418981395237*^9, 3.4794189822564754`*^9}, {3.4794192068193808`*^9, 
   3.4794192077607346`*^9}, 3.479420089138093*^9, {3.479420130978256*^9, 
   3.4794201410627565`*^9}, {3.479420560345656*^9, 3.479420578171288*^9}, {
   3.479420683943381*^9, 3.4794206847645617`*^9}, {3.4794210347678413`*^9, 
   3.4794210503903055`*^9}, 3.4803613662913427`*^9, {3.480361406058525*^9, 
   3.48036141974821*^9}, {3.4803614672865667`*^9, 3.480361474717252*^9}, 
   3.48070534977779*^9, {3.4928296953212276`*^9, 3.492829707041244*^9}, 
   3.4941724084687696`*^9, 3.4941724567488375`*^9, 3.494172783029294*^9, {
   3.495162076203082*^9, 3.495162102707529*^9}, {3.495162264932214*^9, 
   3.495162277318636*^9}, {3.4951637747120676`*^9, 3.495163775320469*^9}, {
   3.4951642488437004`*^9, 3.4951642509653044`*^9}, {3.4952359429371166`*^9, 
   3.495235964997147*^9}, {3.5507724578719325`*^9, 3.5507724578719325`*^9}, {
   3.551215434154563*^9, 3.5512154381107893`*^9}, {3.5705585033560266`*^9, 
   3.570558505956031*^9}, {3.570562116901086*^9, 3.5705621209010916`*^9}, {
   3.622139814321353*^9, 3.622139815121399*^9}, {3.622141047396881*^9, 
   3.622141085127039*^9}, {3.6221412017297077`*^9, 3.6221412118742886`*^9}, {
   3.6221412640562725`*^9, 3.6221412973761787`*^9}, {3.6221577594007525`*^9, 
   3.622157763969014*^9}, {3.7176538612304363`*^9, 3.7176538612304363`*^9}, {
   3.7176539325465155`*^9, 3.7176539325465155`*^9}, {3.7176540711134405`*^9, 
   3.717654071114441*^9}, {3.7176544420536575`*^9, 3.7176544420536575`*^9}, {
   3.7177809023379927`*^9, 3.7177809382490463`*^9}, {3.717969008950633*^9, 
   3.7179690291487885`*^9}, {3.7237493107450037`*^9, 3.7237493107460036`*^9}}],

Cell[TextData[{
 "Rule: If  ",
 Cell[BoxData[
  RowBox[{
   RowBox[{
    RowBox[{"2", " ", "q"}], "\[Element]", "\[DoubleStruckCapitalZ]"}], " ", 
   "\[And]", " ", 
   RowBox[{"r", "\[Element]", "\[DoubleStruckCapitalZ]"}]}]]],
 ", let ",
 Cell[BoxData[
  RowBox[{"u", "\[Rule]", 
   RowBox[{"\[Integral]", 
    RowBox[{
     SuperscriptBox[
      RowBox[{"(", 
       RowBox[{"d", "+", 
        RowBox[{"e", " ", 
         SuperscriptBox["x", "r"]}]}], ")"}], "q"], 
     RowBox[{"\[DifferentialD]", "x"}]}]}]}]],
  CellChangeTimes->{{3.717885142565098*^9, 3.7178851742999134`*^9}}],
 ", then"
}], "Subsubsection",
 CellDingbat->"\[FilledSmallSquare]",
 CellChangeTimes->{{3.4794189093216*^9, 3.479418932274605*^9}, {
   3.479418981395237*^9, 3.4794189822564754`*^9}, {3.4794192068193808`*^9, 
   3.4794192077607346`*^9}, 3.479420089138093*^9, {3.479420130978256*^9, 
   3.4794201410627565`*^9}, {3.479420560345656*^9, 3.479420578171288*^9}, {
   3.479420683943381*^9, 3.4794206847645617`*^9}, {3.4794210347678413`*^9, 
   3.4794210503903055`*^9}, 3.4803613662913427`*^9, {3.480361406058525*^9, 
   3.48036141974821*^9}, {3.4803614672865667`*^9, 3.480361474717252*^9}, 
   3.48070534977779*^9, {3.4928296953212276`*^9, 3.492829707041244*^9}, 
   3.4941724084687696`*^9, 3.4941724567488375`*^9, 3.494172783029294*^9, {
   3.495162076203082*^9, 3.495162102707529*^9}, {3.495162264932214*^9, 
   3.495162277318636*^9}, {3.4951624969202213`*^9, 3.495162512208248*^9}, {
   3.4951627568718786`*^9, 3.4951627903339376`*^9}, {3.5507715824428606`*^9, 
   3.5507715974747205`*^9}, {3.551295058972397*^9, 3.5512950662198114`*^9}, {
   3.5706259391161747`*^9, 3.5706259391161747`*^9}, {3.5706261448181353`*^9, 
   3.5706261448181353`*^9}, {3.621963609569011*^9, 3.621963609569011*^9}, {
   3.621964345495104*^9, 3.621964345495104*^9}, {3.7027917306691756`*^9, 
   3.7027917537684965`*^9}, {3.7027918067845287`*^9, 3.702791806785529*^9}, {
   3.7027923275021667`*^9, 3.7027923275021667`*^9}, {3.7161478893629355`*^9, 
   3.7161478893629355`*^9}, {3.7161487602327466`*^9, 
   3.7161487602327466`*^9}, {3.7170897093035793`*^9, 
   3.7170897093035793`*^9}, {3.717089858854848*^9, 3.717089858854848*^9}, {
   3.7170904424085026`*^9, 3.7170904424085026`*^9}, {3.7170939135114355`*^9, 
   3.7170939135114355`*^9}, {3.7178835901923075`*^9, 
   3.7178835901923075`*^9}, {3.7178849988128757`*^9, 
   3.7178849988128757`*^9}, {3.71788518385246*^9, 3.7178851865096116`*^9}, {
   3.7178857825447025`*^9, 3.7178857825447025`*^9}, {3.7179643317771144`*^9, 
   3.7179643317771144`*^9}, {3.7179648190979877`*^9, 
   3.7179648195330124`*^9}, {3.71796900363933*^9, 3.7179690184511766`*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{"\[Integral]", 
   RowBox[{
    SuperscriptBox[
     RowBox[{"(", 
      RowBox[{"d", "+", 
       RowBox[{"e", " ", 
        SuperscriptBox["x", "r"]}]}], ")"}], "q"], " ", 
    RowBox[{"(", 
     RowBox[{"a", "+", 
      RowBox[{"b", " ", 
       RowBox[{"Log", "[", 
        RowBox[{"c", " ", 
         SuperscriptBox["x", "n"]}], "]"}]}]}], ")"}], 
    RowBox[{"\[DifferentialD]", 
     RowBox[{"x", "  ", "\[LongRightArrow]", "  ", "u"}]}], " ", 
    RowBox[{"(", 
     RowBox[{"a", "+", 
      RowBox[{"b", " ", 
       RowBox[{"Log", "[", 
        RowBox[{"c", " ", 
         SuperscriptBox["x", "n"]}], "]"}]}]}], ")"}]}]}], "-", 
  RowBox[{"b", " ", "n", " ", 
   RowBox[{"\[Integral]", 
    RowBox[{
     FractionBox["u", "x"], 
     RowBox[{"\[DifferentialD]", "x"}]}]}]}]}]], "Subsubtitle",
 CellDingbat->None,
 CellChangeTimes->{{3.4796579732027807`*^9, 3.479658002474872*^9}, {
   3.4796580599975853`*^9, 3.4796580609489536`*^9}, {3.479658295195784*^9, 
   3.47965829684816*^9}, 3.4796611938939075`*^9, 3.4796613924794593`*^9, {
   3.479661443342597*^9, 3.479661446647349*^9}, {3.479661576554146*^9, 
   3.479661589302477*^9}, 3.479661847553824*^9, {3.4796622294729967`*^9, 
   3.4796622450654173`*^9}, {3.479686720424531*^9, 3.4796867204345455`*^9}, {
   3.4796874646646957`*^9, 3.4796874745589232`*^9}, {3.492826573513727*^9, 
   3.492826578630536*^9}, {3.4928267070863624`*^9, 3.492826707460763*^9}, 
   3.4928267903497095`*^9, {3.492829799151373*^9, 3.4928299617216005`*^9}, {
   3.4940972077187414`*^9, 3.4940972347887793`*^9}, {3.49409966398218*^9, 
   3.494099664952181*^9}, {3.4940997156722527`*^9, 3.494099716112253*^9}, 
   3.4941724567488375`*^9, {3.4941727384192314`*^9, 3.494172760679263*^9}, {
   3.495161485476845*^9, 3.4951615041032777`*^9}, 3.4951622258697453`*^9, 
   3.4951623402647467`*^9, 3.4951624589029546`*^9, {3.4951625764731617`*^9, 
   3.4951626064252143`*^9}, {3.4951628369780197`*^9, 
   3.4951628486156397`*^9}, {3.495162963603442*^9, 3.495162975147462*^9}, {
   3.4953186997347507`*^9, 3.49531874939482*^9}, {3.51595528804482*^9, 
   3.515955297467236*^9}, {3.5159554395714855`*^9, 3.5159554418334894`*^9}, {
   3.551294210163848*^9, 3.5512942133650312`*^9}, {3.5706258947184963`*^9, 
   3.57062591381293*^9}, {3.5706259678514247`*^9, 3.5706260736664104`*^9}, {
   3.570626196407426*^9, 3.570626203006238*^9}, {3.621963535689786*^9, 
   3.6219635366098385`*^9}, {3.621963590753935*^9, 3.6219636139572625`*^9}, 
   3.6219637084396667`*^9, {3.6219640002973595`*^9, 3.6219640436238375`*^9}, {
   3.6219643858204107`*^9, 3.6219644419626217`*^9}, {3.7027917317312365`*^9, 
   3.7027917562446384`*^9}, {3.70279180767458*^9, 3.7027918097967014`*^9}, {
   3.71614789100803*^9, 3.716147892972142*^9}, {3.716153844907136*^9, 
   3.7161538673254185`*^9}, {3.71708978773378*^9, 3.7170897955752287`*^9}, {
   3.7170911829391465`*^9, 3.717091197547982*^9}, {3.7170922197397356`*^9, 
   3.717092224918945*^9}, {3.71709359895553*^9, 3.7170936722322598`*^9}, {
   3.7171025583318233`*^9, 3.7171025583474236`*^9}, {3.717883519794281*^9, 
   3.717883562737737*^9}, 3.7178837350555935`*^9, {3.7178838156592035`*^9, 
   3.7178838423597307`*^9}, 3.7178839278516207`*^9, {3.7178839635326614`*^9, 
   3.7178839775684643`*^9}, {3.7178840237061033`*^9, 
   3.7178840240981255`*^9}, {3.7178850398812246`*^9, 3.717885050180814*^9}, {
   3.7178851351516743`*^9, 3.717885135451691*^9}, {3.7178854674886827`*^9, 
   3.717885502253671*^9}, {3.717964248849371*^9, 3.717964279066099*^9}, 
   3.717964381321948*^9, {3.717969043409604*^9, 3.717969043617616*^9}},
 TextAlignment->Center,
 FontSize->12,
 FontWeight->"Bold"],

Cell["Program code:", "Subsubsection",
 CellDingbat->"\[FilledSmallSquare]",
 CellChangeTimes->{{3.4794189093216*^9, 3.479418932274605*^9}, {
   3.479418981395237*^9, 3.4794189822564754`*^9}, {3.4794192068193808`*^9, 
   3.4794192077607346`*^9}, 3.479420089138093*^9, {3.479420130978256*^9, 
   3.4794201410627565`*^9}, {3.479420560345656*^9, 3.479420578171288*^9}, {
   3.479420683943381*^9, 3.4794206847645617`*^9}, {3.4794210347678413`*^9, 
   3.4794210503903055`*^9}, 3.4803613662913427`*^9, {3.480361406058525*^9, 
   3.48036141974821*^9}, {3.4803614672865667`*^9, 3.480361474717252*^9}, 
   3.4807050675119123`*^9, {3.492804314166378*^9, 3.4928043441496305`*^9}, {
   3.4928044532166224`*^9, 3.492804453513023*^9}, {3.492805162266266*^9, 
   3.492805165713872*^9}, 3.4941724567488375`*^9}],

Cell[BoxData[
 RowBox[{
  RowBox[{"Int", "[", 
   RowBox[{
    RowBox[{
     RowBox[{
      RowBox[{"(", 
       RowBox[{"d_", "+", 
        RowBox[{"e_.", "*", 
         RowBox[{"x_", "^", "r_."}]}]}], ")"}], "^", "q_."}], "*", 
     RowBox[{"(", 
      RowBox[{"a_.", "+", 
       RowBox[{"b_.", "*", 
        RowBox[{"Log", "[", 
         RowBox[{"c_.", "*", 
          RowBox[{"x_", "^", "n_."}]}], "]"}]}]}], ")"}]}], ",", "x_Symbol"}],
    "]"}], " ", ":=", "\n", "  ", 
  RowBox[{
   RowBox[{"With", "[", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{"u", "=", 
       RowBox[{"IntHide", "[", 
        RowBox[{
         RowBox[{
          RowBox[{"(", 
           RowBox[{"d", "+", 
            RowBox[{"e", "*", 
             RowBox[{"x", "^", "r"}]}]}], ")"}], "^", "q"}], ",", "x"}], 
        "]"}]}], "}"}], ",", "  ", "\n", "  ", 
     RowBox[{
      RowBox[{
       RowBox[{"Dist", "[", 
        RowBox[{
         RowBox[{"(", 
          RowBox[{"a", "+", 
           RowBox[{"b", "*", 
            RowBox[{"Log", "[", 
             RowBox[{"c", "*", 
              RowBox[{"x", "^", "n"}]}], "]"}]}]}], ")"}], ",", "u", ",", 
         "x"}], "]"}], " ", "-", " ", 
       RowBox[{"b", "*", "n", "*", 
        RowBox[{"Int", "[", 
         RowBox[{
          RowBox[{"SimplifyIntegrand", "[", 
           RowBox[{
            RowBox[{"u", "/", "x"}], ",", "x"}], "]"}], ",", "x"}], "]"}]}]}],
       " ", "/;", "\n", " ", 
      RowBox[{
       RowBox[{
        RowBox[{"EqQ", "[", 
         RowBox[{"r", ",", "1"}], "]"}], " ", "&&", " ", 
        RowBox[{"IntegerQ", "[", 
         RowBox[{"q", "-", 
          RowBox[{"1", "/", "2"}]}], "]"}]}], " ", "||", " ", 
       RowBox[{
        RowBox[{"EqQ", "[", 
         RowBox[{"r", ",", "2"}], "]"}], " ", "&&", " ", 
        RowBox[{"EqQ", "[", 
         RowBox[{"q", ",", 
          RowBox[{"-", "1"}]}], "]"}]}], " ", "||", " ", 
       RowBox[{"InverseFunctionFreeQ", "[", 
        RowBox[{"u", ",", "x"}], "]"}]}]}]}], "]"}], " ", "/;", "\n", 
   RowBox[{
    RowBox[{"FreeQ", "[", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{
       "a", ",", "b", ",", "c", ",", "d", ",", "e", ",", "n", ",", "q", ",", 
        "r"}], "}"}], ",", "x"}], "]"}], " ", "&&", " ", 
    RowBox[{"IntegerQ", "[", 
     RowBox[{"2", "*", "q"}], "]"}], " ", "&&", " ", 
    RowBox[{"IntegerQ", "[", "r", "]"}]}]}]}]], "Code",
 CellChangeTimes->{{3.494097279728842*^9, 3.494097309778884*^9}, {
   3.494099665582182*^9, 3.4940996672021847`*^9}, {3.4940997193022575`*^9, 
   3.494099719662258*^9}, 3.4941724567488375`*^9, 3.494172717389202*^9, 
   3.495161451843186*^9, 3.4951616878092003`*^9, 3.495162292263462*^9, 
   3.49516247887099*^9, 3.4951626919289646`*^9, 3.4951627504134674`*^9, 
   3.548733189244907*^9, 3.5487333497590876`*^9, {3.5512944878287296`*^9, 
   3.551294495263155*^9}, {3.551295101626837*^9, 3.5512951328186207`*^9}, {
   3.551295559331016*^9, 3.5512955650673437`*^9}, {3.5512971853300176`*^9, 
   3.5512971906853237`*^9}, {3.5512974190273843`*^9, 
   3.5512974239016633`*^9}, {3.5706262613191404`*^9, 
   3.5706262756867657`*^9}, {3.5706263647629223`*^9, 
   3.5706263775393443`*^9}, {3.57062648903274*^9, 3.5706265180175915`*^9}, {
   3.5709206646650977`*^9, 3.570920665995099*^9}, {3.5709207045951533`*^9, 
   3.5709207315751915`*^9}, {3.6219073135736685`*^9, 3.621907339923176*^9}, 
   3.6219075185103903`*^9, {3.6219075896854615`*^9, 3.621907603168233*^9}, {
   3.621963623637816*^9, 3.6219636248208838`*^9}, 3.621963764418868*^9, {
   3.621963845338496*^9, 3.6219638661946898`*^9}, {3.621964091441573*^9, 
   3.6219640960838385`*^9}, {3.6219641333489695`*^9, 
   3.6219641560752697`*^9}, {3.6219646436721587`*^9, 3.621964657890972*^9}, 
   3.621964721611616*^9, {3.6219745734062786`*^9, 3.6219745974996567`*^9}, {
   3.7027917362734957`*^9, 3.7027917608148994`*^9}, {3.7027918122318406`*^9, 
   3.7027918187672143`*^9}, {3.7027923914578247`*^9, 3.702792398659237*^9}, {
   3.7027924313881087`*^9, 3.702792439727586*^9}, {3.7161454735057564`*^9, 
   3.716145477852005*^9}, {3.716147897641409*^9, 3.7161479049908295`*^9}, {
   3.7161480052225623`*^9, 3.7161480077867093`*^9}, 3.7161486937069416`*^9, {
   3.7161487353143215`*^9, 3.716148738200486*^9}, 3.717089738357956*^9, {
   3.7170899085946927`*^9, 3.7170899336641264`*^9}, {3.7170900284394374`*^9, 
   3.7170900336498466`*^9}, {3.7170900937249017`*^9, 3.7170900968293076`*^9},
    {3.71709040808854*^9, 3.7170904301308007`*^9}, {3.7170908960575066`*^9, 
   3.7170908985399113`*^9}, {3.7170912112947683`*^9, 
   3.7170912303848605`*^9}, {3.717092249662588*^9, 3.717092257415802*^9}, 
   3.717092645991087*^9, {3.717093684199481*^9, 3.7170937043557167`*^9}, {
   3.7170937444193373`*^9, 3.717093752593752*^9}, {3.717093828043485*^9, 
   3.71709387080916*^9}, {3.717095411460695*^9, 3.7170954259349213`*^9}, {
   3.7170955229594917`*^9, 3.717095555907936*^9}, 3.717097286640851*^9, {
   3.71788406525548*^9, 3.7178841788899794`*^9}, {3.717884245218773*^9, 
   3.717884270587224*^9}, 3.717884316604856*^9, {3.7178849037924414`*^9, 
   3.717884910431821*^9}, {3.7178853956135716`*^9, 3.717885452487825*^9}, {
   3.717885537097664*^9, 3.717885538902767*^9}, {3.717885571091608*^9, 
   3.7178857157998853`*^9}, 3.717885901453504*^9, {3.717964370955355*^9, 
   3.717964372031417*^9}, {3.7179644152148867`*^9, 3.717964471691117*^9}, {
   3.717966830983061*^9, 3.717966831598096*^9}, {3.717969087759141*^9, 
   3.7179691024729824`*^9}, {3.723668377837527*^9, 3.723668452657632*^9}, {
   3.723668677677947*^9, 3.7236686839679556`*^9}, 3.7236687204680066`*^9, {
   3.723668788118101*^9, 3.7236687931581087`*^9}, 3.723749301696486*^9},
 Background->GrayLevel[0.85]],

Cell["", "Subsubsection",
 CellDingbat->None,
 CellChangeTimes->{3.4796643211106243`*^9, 3.4941724567488375`*^9}]
}, Closed]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{Cell[TextData[StyleBox["6:",
   FontFamily->"Arial",
   FontColor->RGBColor[1, 0, 0]]], "None"], "  ", 
  RowBox[{"\[Integral]", 
   RowBox[{
    SuperscriptBox[
     RowBox[{"(", 
      RowBox[{"d", "+", 
       RowBox[{"e", " ", 
        SuperscriptBox["x", "r"]}]}], ")"}], "q"], " ", 
    SuperscriptBox[
     RowBox[{"(", 
      RowBox[{"a", "+", 
       RowBox[{"b", " ", 
        RowBox[{"Log", "[", 
         RowBox[{"c", " ", 
          SuperscriptBox["x", "n"]}], "]"}]}]}], ")"}], "p"], 
    RowBox[{"\[DifferentialD]", "x"}], "  ", 
    StyleBox["when",
     FontFamily->"Arial",
     FontWeight->"Plain"], 
    StyleBox["  ",
     FontFamily->"Arial",
     FontWeight->"Plain"], Cell[TextData[Cell[BoxData[
     RowBox[{
      RowBox[{"q", "\[Element]", "\[DoubleStruckCapitalZ]"}], " ", "\[And]", 
      " ", 
      RowBox[{"(", 
       RowBox[{
        RowBox[{"q", ">", "0"}], " ", "\[Or]", " ", 
        RowBox[{
         RowBox[{"p", "\[Element]", 
          SuperscriptBox["\[DoubleStruckCapitalZ]", "+"]}], "\[And]", " ", 
         RowBox[{"r", "\[Element]", "\[DoubleStruckCapitalZ]"}]}]}], 
       ")"}]}]]]], "None"]}]}]}]], "Subsubtitle",
 CellDingbat->None,
 CellChangeTimes->{
  3.477935275784027*^9, {3.477935350060832*^9, 3.477935352384173*^9}, {
   3.477935393803731*^9, 3.477935400102789*^9}, {3.477935515378547*^9, 
   3.47793552034569*^9}, 3.478120029940968*^9, {3.479318860690858*^9, 
   3.47931886615872*^9}, {3.4794185033278093`*^9, 3.479418503918659*^9}, 
   3.4795122294117584`*^9, {3.479615913307893*^9, 3.4796159352794867`*^9}, 
   3.4796160386581373`*^9, 3.4796867204045024`*^9, {3.4928025699585147`*^9, 
   3.492802570130115*^9}, 3.492822274480175*^9, 3.492825822242408*^9, {
   3.4940970615585365`*^9, 3.494097062168537*^9}, {3.496441349250718*^9, 
   3.496441349830719*^9}, 3.4964414848609076`*^9, 3.496521708137803*^9, {
   3.4965218981240697`*^9, 3.49652189838407*^9}, 3.4965229070755*^9, 
   3.519247079685614*^9, {3.5193208582062006`*^9, 3.5193208612170057`*^9}, 
   3.5193325694253187`*^9, {3.5193422443984776`*^9, 3.5193422447260776`*^9}, 
   3.5193424488212357`*^9, {3.5193434708254333`*^9, 3.519343473103037*^9}, {
   3.5193435097631016`*^9, 3.51934353169674*^9}, {3.519345739319023*^9, 
   3.519345739599823*^9}, 3.5193462601259375`*^9, {3.5193475061060295`*^9, 
   3.5193475233908596`*^9}, {3.519351391880224*^9, 3.5193513931402254`*^9}, {
   3.519403773021052*^9, 3.5194037798564425`*^9}, 3.5194106793250647`*^9, {
   3.519537578341393*^9, 3.5195375792305946`*^9}, {3.5195376277778797`*^9, 
   3.51953767927357*^9}, {3.5197586260636144`*^9, 3.5197586260636144`*^9}, {
   3.51978053295651*^9, 3.519780542862528*^9}, {3.5197806526087203`*^9, 
   3.5197806657595434`*^9}, {3.5197807490168896`*^9, 3.5197807642581167`*^9}, 
   3.5197809004619555`*^9, {3.519782653514635*^9, 3.5197826623286505`*^9}, {
   3.5200207810164795`*^9, 3.520020785046485*^9}, {3.5213126833374643`*^9, 
   3.5213126833374643`*^9}, {3.521328235411002*^9, 3.521328235411002*^9}, {
   3.523315567893022*^9, 3.523315567893022*^9}, {3.5233157569332867`*^9, 
   3.5233157613032923`*^9}, {3.5323023198133526`*^9, 3.532302355723403*^9}, {
   3.5323026417638035`*^9, 3.5323026417638035`*^9}, {3.5323026980138817`*^9, 
   3.5323026980138817`*^9}, {3.532636287104328*^9, 3.532636287104328*^9}, {
   3.5330803686035347`*^9, 3.533080368863535*^9}, {3.533248909289961*^9, 
   3.5332489110299635`*^9}, {3.534962469565694*^9, 3.5349624910757236`*^9}, {
   3.5349625224057674`*^9, 3.534962522655768*^9}, {3.534965265519608*^9, 
   3.534965265519608*^9}, {3.5349668288168063`*^9, 3.5349668292668066`*^9}, {
   3.5349747358481646`*^9, 3.5349747358481646`*^9}, {3.534975457949176*^9, 
   3.534975457949176*^9}, {3.5368633963532934`*^9, 3.536863396571694*^9}, {
   3.541644322511304*^9, 3.5416443577513533`*^9}, {3.5416458269234104`*^9, 
   3.541645839633428*^9}, {3.5416460312236967`*^9, 3.541646031483697*^9}, 
   3.541646227783972*^9, {3.541647080335165*^9, 3.5416471077052035`*^9}, {
   3.541648997607849*^9, 3.5416489978278494`*^9}, 3.541649088407976*^9, {
   3.5417848711596775`*^9, 3.541784902429721*^9}, {3.541786145331461*^9, 
   3.5417861455914617`*^9}, {3.5417870037166634`*^9, 3.5417870039366636`*^9}, 
   3.5462979620242105`*^9, {3.546298264094633*^9, 3.546298265344635*^9}, {
   3.546299000235664*^9, 3.546299001505666*^9}, {3.546315119909564*^9, 
   3.5463151267659564`*^9}, {3.547227356319705*^9, 3.547227356319705*^9}, 
   3.547918559331044*^9, {3.547918610170952*^9, 3.5479186304411116`*^9}, 
   3.548537755517557*^9, 3.5485441629685287`*^9, 3.5485517520154133`*^9, {
   3.5488740727887154`*^9, 3.5488740727887154`*^9}, {3.548874206618903*^9, 
   3.548874206808903*^9}, 3.548877100795455*^9, 3.550596464087599*^9, {
   3.5505965767870445`*^9, 3.5505965767870445`*^9}, 3.5505966202465305`*^9, {
   3.5506039138305197`*^9, 3.55060391400453*^9}, {3.5506040039986773`*^9, 
   3.550604005776779*^9}, {3.5506178888272758`*^9, 3.5506178900273447`*^9}, {
   3.5506192681491685`*^9, 3.550619293563622*^9}, {3.5506195305301757`*^9, 
   3.550619538392626*^9}, 3.5508113633281665`*^9, 3.550850564117722*^9, 
   3.55085086060068*^9, {3.5511408787654934`*^9, 3.5511409460743437`*^9}, {
   3.551141285599763*^9, 3.5511412862558007`*^9}, {3.551141755774656*^9, 
   3.551141760640934*^9}, 3.5511421879633756`*^9, {3.551142285382948*^9, 
   3.551142293482411*^9}, 3.5511435575557117`*^9, {3.5512164753021135`*^9, 
   3.5512164778892612`*^9}, {3.551216694179632*^9, 3.551216695840727*^9}, 
   3.5513018617657003`*^9, {3.551302061528126*^9, 3.5513020689185486`*^9}, {
   3.5513021211925383`*^9, 3.551302127430895*^9}, {3.551302588151247*^9, 
   3.5513025945726137`*^9}, {3.551304517494599*^9, 3.55130451769561*^9}, {
   3.5513045759689436`*^9, 3.551304581521261*^9}, {3.551902125546421*^9, 
   3.551902127336424*^9}, {3.5519105636482306`*^9, 3.551910589348266*^9}, {
   3.551910638758335*^9, 3.5519106465983467`*^9}, {3.551913690692608*^9, 
   3.5519137147326417`*^9}, {3.5519139558429794`*^9, 3.551913956822981*^9}, {
   3.551914267493416*^9, 3.551914267713416*^9}, {3.552004945897915*^9, 
   3.552004945897915*^9}, {3.5520053743354607`*^9, 3.5520053743354607`*^9}, {
   3.552080596533927*^9, 3.5520805985139303`*^9}, {3.552080632813978*^9, 
   3.552080632813978*^9}, {3.552081832535658*^9, 3.552081859275695*^9}, {
   3.552081966975846*^9, 3.552081989575877*^9}, {3.5520824547265286`*^9, 
   3.5520824553265295`*^9}, {3.552082612016749*^9, 3.5520826122267494`*^9}, {
   3.5520827283769116`*^9, 3.55208273451692*^9}, {3.5520835041779976`*^9, 
   3.5520835126380095`*^9}, {3.5521502297511597`*^9, 3.552150243401184*^9}, {
   3.5521504415371323`*^9, 3.5521504418023324`*^9}, {3.5521506802225513`*^9, 
   3.5521506831241565`*^9}, 3.5521513890409966`*^9, {3.5521518520342093`*^9, 
   3.5521518523618097`*^9}, {3.55216663396463*^9, 3.5521666361446333`*^9}, {
   3.5705715607075477`*^9, 3.5705715838775797`*^9}, {3.5705717014077444`*^9, 
   3.570571706117751*^9}, {3.570571804227888*^9, 3.5705718044578886`*^9}, {
   3.570587096349404*^9, 3.570587096349404*^9}, 3.570587187549532*^9, 
   3.5705893107525043`*^9, 3.570590325943925*^9, 3.570644430088464*^9, 
   3.57064447000852*^9, {3.5706445162785845`*^9, 3.570644516508585*^9}, 
   3.621907050745636*^9, 3.6219071266499777`*^9, {3.6219074059979553`*^9, 
   3.6219074059979553`*^9}, 3.62197880513132*^9, {3.71657313617165*^9, 
   3.7165731962180843`*^9}, 3.7165735465701227`*^9, {3.716576000118458*^9, 
   3.7165760037026625`*^9}, {3.716665331970438*^9, 3.7166653431490774`*^9}, {
   3.716665936977042*^9, 3.7166659371720533`*^9}, {3.7166681437812643`*^9, 
   3.7166681772601795`*^9}, {3.716779005577099*^9, 3.7167790058441143`*^9}, {
   3.717556103104125*^9, 3.717556122751249*^9}, {3.722818778277727*^9, 
   3.722818778515741*^9}, {3.7228194331711845`*^9, 3.722819433725217*^9}, {
   3.7228203810153985`*^9, 3.7228204396367517`*^9}, {3.7237475375155807`*^9, 
   3.723747619172251*^9}, {3.72374767440241*^9, 3.723747674598421*^9}, {
   3.7239483860724683`*^9, 3.7239483862474785`*^9}, {3.7241868056390963`*^9, 
   3.724186805799096*^9}, {3.724297363068554*^9, 3.7242973632695656`*^9}, 
   3.7461207017586255`*^9},
 FontSize->12,
 FontWeight->"Bold"],

Cell["Derivation: Algebraic expansion", "Subsubsection",
 CellDingbat->"\[FilledSmallSquare]",
 CellChangeTimes->{{3.4794189093216*^9, 3.479418932274605*^9}, {
   3.479418981395237*^9, 3.4794189822564754`*^9}, {3.4794192068193808`*^9, 
   3.4794192077607346`*^9}, 3.479420089138093*^9, {3.479420130978256*^9, 
   3.4794201410627565`*^9}, {3.479420560345656*^9, 3.479420578171288*^9}, {
   3.479420683943381*^9, 3.4794206847645617`*^9}, {3.4794210347678413`*^9, 
   3.4794210503903055`*^9}, 3.4803613662913427`*^9, {3.480361406058525*^9, 
   3.48036141974821*^9}, {3.4803614672865667`*^9, 3.480361474717252*^9}, 
   3.48070534977779*^9, {3.4928296953212276`*^9, 3.492829707041244*^9}, 
   3.4941724084687696`*^9, 3.4941724567488375`*^9, 3.494172783029294*^9, {
   3.495162076203082*^9, 3.495162102707529*^9}, {3.495162264932214*^9, 
   3.495162277318636*^9}, {3.4951637747120676`*^9, 3.495163775320469*^9}, {
   3.4951642488437004`*^9, 3.4951642509653044`*^9}, {3.4952359429371166`*^9, 
   3.495235964997147*^9}, {3.5507724578719325`*^9, 3.5507724578719325`*^9}, {
   3.570555918122408*^9, 3.57055591976241*^9}, {3.5705561643127527`*^9, 
   3.5705561643127527`*^9}, {3.570556330612985*^9, 3.570556330612985*^9}, {
   3.570557376284449*^9, 3.570557376284449*^9}, {3.5705716641176925`*^9, 
   3.5705716882977257`*^9}, {3.5705870968494043`*^9, 
   3.5705870968494043`*^9}, {3.570628504905081*^9, 3.5706285129546947`*^9}}],

Cell[TextData[{
 "Rule: If  ",
 Cell[BoxData[
  RowBox[{
   RowBox[{"q", "\[Element]", "\[DoubleStruckCapitalZ]"}], " ", "\[And]", " ", 
   RowBox[{"(", 
    RowBox[{
     RowBox[{"q", ">", "0"}], " ", "\[Or]", " ", 
     RowBox[{
      RowBox[{"p", "\[Element]", 
       SuperscriptBox["\[DoubleStruckCapitalZ]", "+"]}], "\[And]", " ", 
      RowBox[{"r", "\[Element]", "\[DoubleStruckCapitalZ]"}]}]}], ")"}]}]]],
 ", then"
}], "Subsubsection",
 CellDingbat->"\[FilledSmallSquare]",
 CellChangeTimes->{{3.4794189093216*^9, 3.479418932274605*^9}, {
   3.479418981395237*^9, 3.4794189822564754`*^9}, {3.4794192068193808`*^9, 
   3.4794192077607346`*^9}, 3.479420089138093*^9, {3.479420130978256*^9, 
   3.4794201410627565`*^9}, {3.479420560345656*^9, 3.479420578171288*^9}, {
   3.479420683943381*^9, 3.4794206847645617`*^9}, {3.4794210347678413`*^9, 
   3.4794210503903055`*^9}, 3.4803613662913427`*^9, {3.480361406058525*^9, 
   3.48036141974821*^9}, {3.4803614672865667`*^9, 3.480361474717252*^9}, 
   3.48070534977779*^9, {3.4928296953212276`*^9, 3.492829707041244*^9}, 
   3.4941724084687696`*^9, 3.4941724567488375`*^9, 3.494172783029294*^9, {
   3.495162076203082*^9, 3.495162102707529*^9}, {3.495162264932214*^9, 
   3.495162277318636*^9}, {3.4951637747120676`*^9, 3.495163775320469*^9}, {
   3.4951642488437004`*^9, 3.4951642509653044`*^9}, {3.4952359429371166`*^9, 
   3.495235964997147*^9}, {3.5507724578719325`*^9, 3.5507724578719325`*^9}, {
   3.570555918122408*^9, 3.57055591976241*^9}, {3.5705561643127527`*^9, 
   3.5705561643127527`*^9}, {3.570556330612985*^9, 3.570556330612985*^9}, {
   3.570557376284449*^9, 3.570557376284449*^9}, {3.5705716641176925`*^9, 
   3.5705716882977257`*^9}, {3.5705870968494043`*^9, 
   3.5705870968494043`*^9}, {3.621907406708996*^9, 3.621907406708996*^9}, {
   3.716576013932248*^9, 3.716576013932248*^9}, {3.7166681861176853`*^9, 
   3.7166681861176853`*^9}, {3.717556136532037*^9, 3.717556136533037*^9}, {
   3.7228204459241114`*^9, 3.7228204459241114`*^9}, {3.723747648888951*^9, 
   3.723747648888951*^9}}],

Cell[BoxData[
 RowBox[{"\[Integral]", 
  RowBox[{
   SuperscriptBox[
    RowBox[{"(", 
     RowBox[{"d", "+", 
      RowBox[{"e", " ", 
       SuperscriptBox["x", "r"]}]}], ")"}], "q"], " ", 
   SuperscriptBox[
    RowBox[{"(", 
     RowBox[{"a", "+", 
      RowBox[{"b", " ", 
       RowBox[{"Log", "[", 
        RowBox[{"c", " ", 
         SuperscriptBox["x", "n"]}], "]"}]}]}], ")"}], "p"], 
   RowBox[{"\[DifferentialD]", 
    RowBox[{"x", "  ", "\[LongRightArrow]", "  ", 
     RowBox[{"\[Integral]", 
      RowBox[{
       SuperscriptBox[
        RowBox[{"(", 
         RowBox[{"a", "+", 
          RowBox[{"b", " ", 
           RowBox[{"Log", "[", 
            RowBox[{"c", " ", 
             SuperscriptBox["x", "n"]}], "]"}]}]}], ")"}], "p"], " ", 
       RowBox[{"ExpandIntegrand", "[", 
        RowBox[{
         SuperscriptBox[
          RowBox[{"(", 
           RowBox[{"d", "+", 
            RowBox[{"e", " ", 
             SuperscriptBox["x", "r"]}]}], ")"}], "q"], ",", "x"}], "]"}], 
       RowBox[{"\[DifferentialD]", "x"}]}]}]}]}]}]}]], "Subsubtitle",
 CellDingbat->None,
 CellChangeTimes->{{3.4796579732027807`*^9, 3.479658002474872*^9}, {
   3.4796580599975853`*^9, 3.4796580609489536`*^9}, {3.479658295195784*^9, 
   3.47965829684816*^9}, 3.4796611938939075`*^9, 3.4796613924794593`*^9, {
   3.479661443342597*^9, 3.479661446647349*^9}, {3.479661576554146*^9, 
   3.479661589302477*^9}, 3.479661847553824*^9, {3.4796622294729967`*^9, 
   3.4796622450654173`*^9}, {3.479686720424531*^9, 3.4796867204345455`*^9}, {
   3.4796874646646957`*^9, 3.4796874745589232`*^9}, {3.492826573513727*^9, 
   3.492826578630536*^9}, {3.4928267070863624`*^9, 3.492826707460763*^9}, 
   3.4928267903497095`*^9, {3.492829799151373*^9, 3.4928299617216005`*^9}, {
   3.4940972077187414`*^9, 3.4940972347887793`*^9}, {3.49409966398218*^9, 
   3.494099664952181*^9}, {3.4940997156722527`*^9, 3.494099716112253*^9}, 
   3.4941724567488375`*^9, {3.4941727384192314`*^9, 3.494172760679263*^9}, {
   3.495161485476845*^9, 3.4951615041032777`*^9}, {3.495161845931078*^9, 
   3.4951618787379355`*^9}, {3.495163638398227*^9, 3.495163646853442*^9}, 
   3.49516370254554*^9, {3.4952372597089596`*^9, 3.495237275898982*^9}, {
   3.4952373570290956`*^9, 3.4952373664991093`*^9}, {3.495237741409634*^9, 
   3.495237787939699*^9}, {3.49523787421982*^9, 3.495237881949831*^9}, {
   3.4952388430911765`*^9, 3.495238851691189*^9}, {3.5487103962249517`*^9, 
   3.548710396424952*^9}, {3.5487104298149986`*^9, 3.548710472245058*^9}, 
   3.5487105032151017`*^9, {3.548712772568279*^9, 3.548712774478281*^9}, {
   3.5487128118783336`*^9, 3.54871290906847*^9}, {3.551301866243956*^9, 
   3.551301873186353*^9}, {3.5513019192829895`*^9, 3.5513019840506945`*^9}, 
   3.5513045900297475`*^9, {3.5519106847683997`*^9, 3.551910692698411*^9}, 
   3.5519107356884713`*^9, {3.551910780358534*^9, 3.5519107846885395`*^9}, {
   3.5519109108887167`*^9, 3.55191102058887*^9}, {3.5519113342593093`*^9, 
   3.5519113358893113`*^9}, {3.5519135926524706`*^9, 3.551913606932491*^9}, {
   3.5519137579627028`*^9, 3.551913778362731*^9}, {3.551913828722801*^9, 
   3.5519138382728148`*^9}, 3.5519138757428675`*^9, {3.5520820308659353`*^9, 
   3.5520820546259685`*^9}, {3.5520827497669415`*^9, 
   3.5520828136670313`*^9}, {3.5521502585488105`*^9, 
   3.5521502851624575`*^9}, {3.5521514001014156`*^9, 
   3.5521514033930216`*^9}, {3.57057163388765*^9, 3.570571641727661*^9}, {
   3.570571856807962*^9, 3.570571872507984*^9}, {3.5705871881495323`*^9, 
   3.5705871896395345`*^9}, 3.5705893139525084`*^9, 3.5706284911926565`*^9, {
   3.5706444486784897`*^9, 3.570644450688493*^9}, {3.6219070514736776`*^9, 
   3.6219070523777294`*^9}, {3.6219071280330563`*^9, 
   3.6219071285610867`*^9}, {3.716573136408663*^9, 3.7165731964030943`*^9}, {
   3.7166653893107176`*^9, 3.716665393118935*^9}, {3.7166689280441217`*^9, 
   3.716668933222418*^9}},
 TextAlignment->Center,
 FontSize->12,
 FontWeight->"Bold"],

Cell["Program code:", "Subsubsection",
 CellDingbat->"\[FilledSmallSquare]",
 CellChangeTimes->{{3.4794189093216*^9, 3.479418932274605*^9}, {
   3.479418981395237*^9, 3.4794189822564754`*^9}, {3.4794192068193808`*^9, 
   3.4794192077607346`*^9}, 3.479420089138093*^9, {3.479420130978256*^9, 
   3.4794201410627565`*^9}, {3.479420560345656*^9, 3.479420578171288*^9}, {
   3.479420683943381*^9, 3.4794206847645617`*^9}, {3.4794210347678413`*^9, 
   3.4794210503903055`*^9}, 3.4803613662913427`*^9, {3.480361406058525*^9, 
   3.48036141974821*^9}, {3.4803614672865667`*^9, 3.480361474717252*^9}, 
   3.4807050675119123`*^9, {3.492804314166378*^9, 3.4928043441496305`*^9}, {
   3.4928044532166224`*^9, 3.492804453513023*^9}, {3.492805162266266*^9, 
   3.492805165713872*^9}, 3.4941724567488375`*^9}],

Cell[BoxData[
 RowBox[{
  RowBox[{"Int", "[", 
   RowBox[{
    RowBox[{
     RowBox[{
      RowBox[{"(", 
       RowBox[{"d_", "+", 
        RowBox[{"e_.", "*", 
         RowBox[{"x_", "^", "r_."}]}]}], ")"}], "^", "q_."}], "*", 
     RowBox[{
      RowBox[{"(", 
       RowBox[{"a_.", "+", 
        RowBox[{"b_.", "*", 
         RowBox[{"Log", "[", 
          RowBox[{"c_.", "*", 
           RowBox[{"x_", "^", "n_."}]}], "]"}]}]}], ")"}], "^", "p_."}]}], 
    ",", "x_Symbol"}], "]"}], " ", ":=", "\n", "  ", 
  RowBox[{
   RowBox[{"With", "[", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{"u", "=", 
       RowBox[{"ExpandIntegrand", "[", 
        RowBox[{
         RowBox[{
          RowBox[{"(", 
           RowBox[{"a", "+", 
            RowBox[{"b", "*", 
             RowBox[{"Log", "[", 
              RowBox[{"c", "*", 
               RowBox[{"x", "^", "n"}]}], "]"}]}]}], ")"}], "^", "p"}], ",", 
         RowBox[{
          RowBox[{"(", 
           RowBox[{"d", "+", 
            RowBox[{"e", "*", 
             RowBox[{"x", "^", "r"}]}]}], ")"}], "^", "q"}], ",", "x"}], 
        "]"}]}], "}"}], ",", "\n", "  ", 
     RowBox[{
      RowBox[{"Int", "[", 
       RowBox[{"u", ",", "x"}], "]"}], " ", "/;", "\n", " ", 
      RowBox[{"SumQ", "[", "u", "]"}]}]}], "]"}], " ", "/;", "\n", 
   RowBox[{
    RowBox[{"FreeQ", "[", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{
       "a", ",", "b", ",", "c", ",", "d", ",", "e", ",", "n", ",", "p", ",", 
        "q", ",", "r"}], "}"}], ",", "x"}], "]"}], " ", "&&", " ", 
    RowBox[{"IntegerQ", "[", "q", "]"}], " ", "&&", " ", 
    RowBox[{"(", 
     RowBox[{
      RowBox[{"GtQ", "[", 
       RowBox[{"q", ",", "0"}], "]"}], " ", "||", " ", 
      RowBox[{
       RowBox[{"IGtQ", "[", 
        RowBox[{"p", ",", "0"}], "]"}], " ", "&&", " ", 
       RowBox[{"IntegerQ", "[", "r", "]"}]}]}], ")"}]}]}]}]], "Code",
 CellChangeTimes->{{3.494097279728842*^9, 3.494097309778884*^9}, {
   3.494099665582182*^9, 3.4940996672021847`*^9}, {3.4940997193022575`*^9, 
   3.494099719662258*^9}, 3.4941724567488375`*^9, 3.494172717389202*^9, 
   3.495161451843186*^9, 3.4951616675135646`*^9, 3.495163619631394*^9, 
   3.4952372087988887`*^9, 3.4952373332790627`*^9, 3.495237685579556*^9, {
   3.495238880421229*^9, 3.4952388851512356`*^9}, {3.548710525575133*^9, 
   3.5487105262551336`*^9}, 3.5487105694551945`*^9, {3.548710610795252*^9, 
   3.5487106174152613`*^9}, {3.5487129389285116`*^9, 3.548712982798573*^9}, {
   3.5513021666561384`*^9, 3.551302276495421*^9}, {3.551896843816527*^9, 
   3.5518968479565325`*^9}, {3.5518971664469786`*^9, 
   3.5518971667369785`*^9}, {3.551898058958228*^9, 3.5518980620982323`*^9}, {
   3.5518988829793816`*^9, 3.5518988866593866`*^9}, {3.551899713900545*^9, 
   3.5518997168805494`*^9}, 3.5518998992508044`*^9, {3.551901405992914*^9, 
   3.551901409712919*^9}, {3.551910616318304*^9, 3.5519106303583236`*^9}, {
   3.5519106611283665`*^9, 3.551910661488367*^9}, {3.5519114046094074`*^9, 
   3.5519114130094194`*^9}, 3.5519115032495456`*^9, {3.5519115655696325`*^9, 
   3.5519115739196444`*^9}, {3.5519139009029026`*^9, 3.551913917752926*^9}, {
   3.551914056983121*^9, 3.5519140577931223`*^9}, 3.551914169693279*^9, 
   3.5520049708599577`*^9, {3.5520054233195467`*^9, 3.5520054309791603`*^9}, 
   3.552080646273997*^9, {3.5520825159566145`*^9, 3.552082545896656*^9}, 
   3.5520828818971267`*^9, 3.552083544158054*^9, 3.5520835798781037`*^9, 
   3.552092307930323*^9, {3.55215026389962*^9, 3.55215027555284*^9}, {
   3.5521503107465024`*^9, 3.5521503161129117`*^9}, {3.5521503539741783`*^9, 
   3.5521503935982475`*^9}, {3.5521514153738422`*^9, 3.5521514584455185`*^9}, 
   3.5521567391141653`*^9, 3.552156770340952*^9, {3.552156928998026*^9, 
   3.5521569333792768`*^9}, {3.5705715915075903`*^9, 3.570571618317628*^9}, {
   3.570571724617777*^9, 3.570571788967867*^9}, 3.5705719293780637`*^9, {
   3.570572013188181*^9, 3.5705720296682043`*^9}, {3.5705743210770173`*^9, 
   3.570574335457037*^9}, 3.5705873053996964`*^9, {3.570587441069886*^9, 
   3.5705874431298895`*^9}, 3.5705874924899583`*^9, {3.570589348842557*^9, 
   3.570589410512644*^9}, {3.570644533678609*^9, 3.57064456322865*^9}, 
   3.5706446590687847`*^9, {3.5706447433089027`*^9, 3.5706447436189027`*^9}, 
   3.570644793628973*^9, 3.621907310462491*^9, 3.6219075177963495`*^9, 
   3.6219084396840787`*^9, {3.621909189102943*^9, 3.6219092032187505`*^9}, 
   3.621909235486596*^9, 3.705192425948954*^9, {3.715124268313919*^9, 
   3.715124271225049*^9}, 3.7165734914819717`*^9, {3.7165759761800885`*^9, 
   3.7165759843605566`*^9}, {3.7165760188685303`*^9, 
   3.7165760616519775`*^9}, {3.7166654065127015`*^9, 3.7166654252697744`*^9}, 
   3.716665737122611*^9, {3.7166679533883743`*^9, 3.716667997737911*^9}, 
   3.7166680484858136`*^9, {3.716668916510462*^9, 3.716668920748704*^9}, {
   3.7172823231679497`*^9, 3.7172823277822137`*^9}, {3.7175563637050304`*^9, 
   3.7175563693903556`*^9}, {3.722819425890768*^9, 3.722819429900998*^9}, {
   3.72282044905429*^9, 3.722820577924661*^9}, {3.7237474355947514`*^9, 
   3.7237474988693705`*^9}, 3.7240976085156236`*^9},
 Background->GrayLevel[0.85]],

Cell["", "Subsubsection",
 CellDingbat->None,
 CellChangeTimes->{3.4796643211106243`*^9, 3.4941724567488375`*^9}]
}, Closed]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{Cell[TextData[StyleBox["U:",
   FontFamily->"Arial",
   FontColor->RGBColor[1, 0, 0]]], "None"], "  ", 
  RowBox[{"\[Integral]", 
   RowBox[{
    SuperscriptBox[
     RowBox[{"(", 
      RowBox[{"d", "+", 
       RowBox[{"e", " ", 
        SuperscriptBox["x", "r"]}]}], ")"}], "q"], " ", 
    SuperscriptBox[
     RowBox[{"(", 
      RowBox[{"a", "+", 
       RowBox[{"b", " ", 
        RowBox[{"Log", "[", 
         RowBox[{"c", " ", 
          SuperscriptBox["x", "n"]}], "]"}]}]}], ")"}], "p"], 
    RowBox[{"\[DifferentialD]", "x"}]}]}]}]], "Subsubtitle",
 CellDingbat->None,
 CellChangeTimes->{
  3.477935275784027*^9, {3.477935350060832*^9, 3.477935352384173*^9}, {
   3.477935393803731*^9, 3.477935400102789*^9}, {3.477935515378547*^9, 
   3.47793552034569*^9}, 3.478120029940968*^9, {3.479318860690858*^9, 
   3.47931886615872*^9}, {3.4794185033278093`*^9, 3.479418503918659*^9}, 
   3.4795122294117584`*^9, {3.479615913307893*^9, 3.4796159352794867`*^9}, 
   3.4796160386581373`*^9, 3.4796867204045024`*^9, {3.4928025699585147`*^9, 
   3.492802570130115*^9}, 3.492822274480175*^9, 3.492825822242408*^9, {
   3.4940970615585365`*^9, 3.494097062168537*^9}, {3.496441349250718*^9, 
   3.496441349830719*^9}, 3.4964414848609076`*^9, 3.496521708137803*^9, {
   3.4965218981240697`*^9, 3.49652189838407*^9}, 3.4965229070755*^9, 
   3.519247079685614*^9, {3.5193208582062006`*^9, 3.5193208612170057`*^9}, 
   3.5193325694253187`*^9, {3.5193422443984776`*^9, 3.5193422447260776`*^9}, 
   3.5193424488212357`*^9, {3.5193434708254333`*^9, 3.519343473103037*^9}, {
   3.5193435097631016`*^9, 3.51934353169674*^9}, {3.519345739319023*^9, 
   3.519345739599823*^9}, 3.5193462601259375`*^9, {3.5193475061060295`*^9, 
   3.5193475233908596`*^9}, {3.519351391880224*^9, 3.5193513931402254`*^9}, {
   3.519403773021052*^9, 3.5194037798564425`*^9}, 3.5194106793250647`*^9, {
   3.519537578341393*^9, 3.5195375792305946`*^9}, {3.5195376277778797`*^9, 
   3.51953767927357*^9}, {3.5197586260636144`*^9, 3.5197586260636144`*^9}, {
   3.51978053295651*^9, 3.519780542862528*^9}, {3.5197806526087203`*^9, 
   3.5197806657595434`*^9}, {3.5197807490168896`*^9, 3.5197807642581167`*^9}, 
   3.5197809004619555`*^9, {3.519782653514635*^9, 3.5197826623286505`*^9}, {
   3.5200207810164795`*^9, 3.520020785046485*^9}, {3.5213126833374643`*^9, 
   3.5213126833374643`*^9}, {3.521328235411002*^9, 3.521328235411002*^9}, {
   3.523315567893022*^9, 3.523315567893022*^9}, {3.5233157569332867`*^9, 
   3.5233157613032923`*^9}, {3.5323023198133526`*^9, 3.532302355723403*^9}, {
   3.5323026417638035`*^9, 3.5323026417638035`*^9}, {3.5323026980138817`*^9, 
   3.5323026980138817`*^9}, {3.532636287104328*^9, 3.532636287104328*^9}, {
   3.5330803686035347`*^9, 3.533080368863535*^9}, {3.533248909289961*^9, 
   3.5332489110299635`*^9}, {3.534962469565694*^9, 3.5349624910757236`*^9}, {
   3.5349625224057674`*^9, 3.534962522655768*^9}, {3.534965265519608*^9, 
   3.534965265519608*^9}, {3.5349668288168063`*^9, 3.5349668292668066`*^9}, {
   3.5349747358481646`*^9, 3.5349747358481646`*^9}, {3.534975457949176*^9, 
   3.534975457949176*^9}, {3.5368633963532934`*^9, 3.536863396571694*^9}, {
   3.541644322511304*^9, 3.5416443577513533`*^9}, {3.5416458269234104`*^9, 
   3.541645839633428*^9}, {3.5416460312236967`*^9, 3.541646031483697*^9}, 
   3.541646227783972*^9, {3.541647080335165*^9, 3.5416471077052035`*^9}, {
   3.541648997607849*^9, 3.5416489978278494`*^9}, 3.541649088407976*^9, {
   3.5417848711596775`*^9, 3.541784902429721*^9}, {3.541786145331461*^9, 
   3.5417861455914617`*^9}, {3.5417870037166634`*^9, 3.5417870039366636`*^9}, 
   3.5462979620242105`*^9, {3.546298264094633*^9, 3.546298265344635*^9}, {
   3.546299000235664*^9, 3.546299001505666*^9}, {3.546315119909564*^9, 
   3.5463151267659564`*^9}, {3.547227356319705*^9, 3.547227356319705*^9}, 
   3.547918559331044*^9, {3.547918610170952*^9, 3.5479186304411116`*^9}, 
   3.548537755517557*^9, 3.5485441629685287`*^9, 3.5485517520154133`*^9, {
   3.5488740727887154`*^9, 3.5488740727887154`*^9}, {3.548874206618903*^9, 
   3.548874206808903*^9}, 3.548877100795455*^9, 3.550596464087599*^9, {
   3.5505965767870445`*^9, 3.5505965767870445`*^9}, 3.5505966202465305`*^9, {
   3.5506039138305197`*^9, 3.55060391400453*^9}, {3.5506040039986773`*^9, 
   3.550604005776779*^9}, {3.5506178888272758`*^9, 3.5506178900273447`*^9}, {
   3.5506192681491685`*^9, 3.550619293563622*^9}, {3.5506195305301757`*^9, 
   3.550619538392626*^9}, 3.5508113633281665`*^9, {3.5508114161671886`*^9, 
   3.550811419328369*^9}, {3.5508116260871954`*^9, 3.5508116269802465`*^9}, {
   3.550811741020769*^9, 3.550811744393962*^9}, {3.5508130184278326`*^9, 
   3.5508130394230337`*^9}, {3.550850981139574*^9, 3.5508510096172028`*^9}, {
   3.5508511357854195`*^9, 3.5508511357854195`*^9}, 3.5513087127028403`*^9, {
   3.551326409634145*^9, 3.5513264112742386`*^9}, {3.5516384008854237`*^9, 
   3.551638414675848*^9}, {3.5516384656099377`*^9, 3.5516384656099377`*^9}, {
   3.5516386768187084`*^9, 3.5516386776455097`*^9}, {3.551638832084979*^9, 
   3.5516388370769873`*^9}, {3.5518228900107107`*^9, 
   3.5518228910507116`*^9}, {3.572980490850006*^9, 3.572980491021606*^9}, {
   3.572980530318075*^9, 3.5729805522361135`*^9}, {3.5729893327183666`*^9, 
   3.5729893345383687`*^9}, 3.5729902100015955`*^9, {3.6224158544448833`*^9, 
   3.6224158563939953`*^9}, 3.6224163822360716`*^9, {3.622416596311316*^9, 
   3.622416601326603*^9}, {3.622416653995615*^9, 3.622416666803348*^9}, {
   3.6224227601888695`*^9, 3.6224227836152096`*^9}, {3.622422928754511*^9, 
   3.622422928754511*^9}, {3.702783825128188*^9, 3.702783825306198*^9}, {
   3.7159940634842386`*^9, 3.715994074283856*^9}, {3.715994289937191*^9, 
   3.715994289937191*^9}, 3.7164160578095913`*^9, {3.716496309394642*^9, 
   3.7164963273186674`*^9}, 3.716496395240552*^9, 3.7461207024536657`*^9},
 FontSize->12,
 FontWeight->"Bold"],

Cell["Rule:", "Subsubsection",
 CellDingbat->"\[FilledSmallSquare]",
 CellChangeTimes->{{3.4794189093216*^9, 3.479418932274605*^9}, {
   3.479418981395237*^9, 3.4794189822564754`*^9}, {3.4794192068193808`*^9, 
   3.4794192077607346`*^9}, 3.479420089138093*^9, {3.479420130978256*^9, 
   3.4794201410627565`*^9}, {3.479420560345656*^9, 3.479420578171288*^9}, {
   3.479420683943381*^9, 3.4794206847645617`*^9}, {3.4794210347678413`*^9, 
   3.4794210503903055`*^9}, 3.4803613662913427`*^9, {3.480361406058525*^9, 
   3.48036141974821*^9}, {3.4803614672865667`*^9, 3.480361474717252*^9}, 
   3.48070534977779*^9, {3.4928296953212276`*^9, 3.492829707041244*^9}, 
   3.4941724084687696`*^9, 3.4941724567488375`*^9, 3.494172783029294*^9, {
   3.495162076203082*^9, 3.495162102707529*^9}, {3.495162264932214*^9, 
   3.495162277318636*^9}, {3.4951637747120676`*^9, 3.495163775320469*^9}, {
   3.4951642488437004`*^9, 3.4951642509653044`*^9}, {3.4952359429371166`*^9, 
   3.495235964997147*^9}, {3.4952365823680115`*^9, 3.495236585548016*^9}, {
   3.550811694264095*^9, 3.5508116995283957`*^9}, {3.550813100346518*^9, 
   3.550813100346518*^9}, {3.550851143089837*^9, 3.550851143089837*^9}, {
   3.5516384489647083`*^9, 3.551638459260726*^9}, {3.5517274780157623`*^9, 
   3.551727507035803*^9}, {3.551727953476428*^9, 3.551727986436474*^9}, {
   3.5517281801367455`*^9, 3.551728243556834*^9}, {3.5729810543541956`*^9, 
   3.5729810867710524`*^9}, {3.572981170355999*^9, 3.5729811719472017`*^9}, {
   3.5729814221248417`*^9, 3.572981447038085*^9}, {3.5729902129616003`*^9, 
   3.5729902129616003`*^9}, {3.6224166903476944`*^9, 3.622416701530334*^9}, {
   3.6224173715746584`*^9, 3.6224173715746584`*^9}, {3.6224227891065235`*^9, 
   3.6224227903785963`*^9}, {3.7159940503164854`*^9, 3.715994052307599*^9}, {
   3.715994087974639*^9, 3.715994087974639*^9}, {3.7164963463847575`*^9, 
   3.716496347600827*^9}}],

Cell[BoxData[
 RowBox[{"\[Integral]", 
  RowBox[{
   SuperscriptBox[
    RowBox[{"(", 
     RowBox[{"d", "+", 
      RowBox[{"e", " ", 
       SuperscriptBox["x", "r"]}]}], ")"}], "q"], " ", 
   SuperscriptBox[
    RowBox[{"(", 
     RowBox[{"a", "+", 
      RowBox[{"b", " ", 
       RowBox[{"Log", "[", 
        RowBox[{"c", " ", 
         SuperscriptBox["x", "n"]}], "]"}]}]}], ")"}], "p"], 
   RowBox[{"\[DifferentialD]", 
    RowBox[{"x", "  ", "\[LongRightArrow]", "  ", 
     RowBox[{"\[Integral]", 
      RowBox[{
       SuperscriptBox[
        RowBox[{"(", 
         RowBox[{"d", "+", 
          RowBox[{"e", " ", 
           SuperscriptBox["x", "r"]}]}], ")"}], "q"], " ", 
       SuperscriptBox[
        RowBox[{"(", 
         RowBox[{"a", "+", 
          RowBox[{"b", " ", 
           RowBox[{"Log", "[", 
            RowBox[{"c", " ", 
             SuperscriptBox["x", "n"]}], "]"}]}]}], ")"}], "p"], 
       RowBox[{"\[DifferentialD]", "x"}]}]}]}]}]}]}]], "Subsubtitle",
 CellDingbat->None,
 CellChangeTimes->{{3.4796579732027807`*^9, 3.479658002474872*^9}, {
   3.4796580599975853`*^9, 3.4796580609489536`*^9}, {3.479658295195784*^9, 
   3.47965829684816*^9}, 3.4796611938939075`*^9, 3.4796613924794593`*^9, {
   3.479661443342597*^9, 3.479661446647349*^9}, {3.479661576554146*^9, 
   3.479661589302477*^9}, 3.479661847553824*^9, {3.4796622294729967`*^9, 
   3.4796622450654173`*^9}, {3.479686720424531*^9, 3.4796867204345455`*^9}, {
   3.4796874646646957`*^9, 3.4796874745589232`*^9}, {3.492826573513727*^9, 
   3.492826578630536*^9}, {3.4928267070863624`*^9, 3.492826707460763*^9}, 
   3.4928267903497095`*^9, {3.492829799151373*^9, 3.4928299617216005`*^9}, {
   3.4940972077187414`*^9, 3.4940972347887793`*^9}, {3.49409966398218*^9, 
   3.494099664952181*^9}, {3.4940997156722527`*^9, 3.494099716112253*^9}, 
   3.4941724567488375`*^9, {3.4941727384192314`*^9, 3.494172760679263*^9}, {
   3.495161485476845*^9, 3.4951615041032777`*^9}, 3.4951622258697453`*^9, 
   3.4951623402647467`*^9, {3.4951637900936947`*^9, 3.4951638150849385`*^9}, {
   3.495164178986778*^9, 3.4951642244608574`*^9}, {3.4952361349873853`*^9, 
   3.4952361437173977`*^9}, {3.495237006628606*^9, 3.49523702420863*^9}, {
   3.495237059028679*^9, 3.4952370679486914`*^9}, {3.495237099748736*^9, 
   3.495237124758771*^9}, {3.550811012409095*^9, 3.5508110566586256`*^9}, {
   3.5508114283958883`*^9, 3.5508114616257887`*^9}, {3.5508114983048863`*^9, 
   3.550811499650964*^9}, {3.5508115414753556`*^9, 3.550811550249858*^9}, 
   3.5508116079461575`*^9, {3.550851015011512*^9, 3.550851039862933*^9}, {
   3.5516382446967707`*^9, 3.5516383897314043`*^9}, {3.5516385752625303`*^9, 
   3.551638583514944*^9}, {3.551727395775647*^9, 3.5517274283056927`*^9}, 
   3.5517276341359806`*^9, {3.5517279389564075`*^9, 3.5517279417864113`*^9}, {
   3.551728001636495*^9, 3.5517280050365*^9}, 3.5517280418165517`*^9, {
   3.572981105943486*^9, 3.5729811377987423`*^9}, {3.572981467895322*^9, 
   3.5729814814517455`*^9}, 3.572990341061779*^9, 3.6224163060817156`*^9, 
   3.6224164452156734`*^9, {3.6224164975806684`*^9, 3.622416501634901*^9}, 
   3.6224166824592433`*^9, {3.62241671387304*^9, 3.6224167476329713`*^9}, {
   3.6224173765919456`*^9, 3.6224173784270506`*^9}, {3.6224228042303886`*^9, 
   3.6224228524281454`*^9}, {3.7159941030014987`*^9, 
   3.7159941332072268`*^9}, {3.716496334279065*^9, 3.7164963402114043`*^9}, {
   3.7164963990977726`*^9, 3.7164964008918753`*^9}},
 TextAlignment->Center,
 FontSize->12,
 FontWeight->"Bold"],

Cell["Program code:", "Subsubsection",
 CellDingbat->"\[FilledSmallSquare]",
 CellChangeTimes->{{3.4794189093216*^9, 3.479418932274605*^9}, {
   3.479418981395237*^9, 3.4794189822564754`*^9}, {3.4794192068193808`*^9, 
   3.4794192077607346`*^9}, 3.479420089138093*^9, {3.479420130978256*^9, 
   3.4794201410627565`*^9}, {3.479420560345656*^9, 3.479420578171288*^9}, {
   3.479420683943381*^9, 3.4794206847645617`*^9}, {3.4794210347678413`*^9, 
   3.4794210503903055`*^9}, 3.4803613662913427`*^9, {3.480361406058525*^9, 
   3.48036141974821*^9}, {3.4803614672865667`*^9, 3.480361474717252*^9}, 
   3.4807050675119123`*^9, {3.492804314166378*^9, 3.4928043441496305`*^9}, {
   3.4928044532166224`*^9, 3.492804453513023*^9}, {3.492805162266266*^9, 
   3.492805165713872*^9}, 3.4941724567488375`*^9}],

Cell[BoxData[
 RowBox[{
  RowBox[{"Int", "[", 
   RowBox[{
    RowBox[{
     RowBox[{
      RowBox[{"(", 
       RowBox[{"d_", "+", 
        RowBox[{"e_.", "*", 
         RowBox[{"x_", "^", "r_."}]}]}], ")"}], "^", "q_."}], "*", 
     RowBox[{
      RowBox[{"(", 
       RowBox[{"a_.", "+", 
        RowBox[{"b_.", "*", 
         RowBox[{"Log", "[", 
          RowBox[{"c_.", "*", 
           RowBox[{"x_", "^", "n_."}]}], "]"}]}]}], ")"}], "^", "p_."}]}], 
    ",", "x_Symbol"}], "]"}], " ", ":=", "\n", "  ", 
  RowBox[{
   RowBox[{"Unintegrable", "[", 
    RowBox[{
     RowBox[{
      RowBox[{
       RowBox[{"(", 
        RowBox[{"d", "+", 
         RowBox[{"e", "*", 
          RowBox[{"x", "^", "r"}]}]}], ")"}], "^", "q"}], "*", 
      RowBox[{
       RowBox[{"(", 
        RowBox[{"a", "+", 
         RowBox[{"b", "*", 
          RowBox[{"Log", "[", 
           RowBox[{"c", "*", 
            RowBox[{"x", "^", "n"}]}], "]"}]}]}], ")"}], "^", "p"}]}], ",", 
     "x"}], "]"}], " ", "/;", "\n", 
   RowBox[{"FreeQ", "[", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{
      "a", ",", "b", ",", "c", ",", "d", ",", "e", ",", "n", ",", "p", ",", 
       "q", ",", "r"}], "}"}], ",", "x"}], "]"}]}]}]], "Code",
 CellChangeTimes->{{3.5505943108164387`*^9, 3.550594318740892*^9}, {
   3.550630675312621*^9, 3.5506306841181245`*^9}, {3.5506855841677713`*^9, 
   3.5506855906431417`*^9}, {3.550686654545994*^9, 3.550686658912243*^9}, 
   3.551727745886137*^9, {3.551727845166276*^9, 3.551727871486313*^9}, 
   3.551727924156387*^9, {3.5517280125265102`*^9, 3.551728021626523*^9}, {
   3.55172863344738*^9, 3.5517286541774087`*^9}, {3.5517290839280105`*^9, 
   3.551729091448021*^9}, {3.5729812378261175`*^9, 3.5729812382473183`*^9}, {
   3.5729812882766066`*^9, 3.572981380971969*^9}, {3.572981453746097*^9, 
   3.572981464042115*^9}, {3.5729816743460846`*^9, 3.5729816755784864`*^9}, 
   3.5729817170589595`*^9, {3.5729902292216225`*^9, 3.5729902676416764`*^9}, {
   3.621813882678424*^9, 3.6218138976462803`*^9}, {3.622417140623449*^9, 
   3.6224172550949965`*^9}, {3.622417381092203*^9, 3.622417384782414*^9}, {
   3.622422858122471*^9, 3.6224229504107494`*^9}, 3.6414122998498087`*^9, {
   3.715994163728972*^9, 3.7159941840351334`*^9}, {3.7159942475887685`*^9, 
   3.715994254868185*^9}, {3.7159948520023394`*^9, 3.7159948524893665`*^9}, 
   3.7159952035674477`*^9, 3.716496369564083*^9, {3.7164964215770583`*^9, 
   3.7164965496393833`*^9}},
 Background->GrayLevel[0.85]],

Cell["", "Subsubsection",
 CellDingbat->None,
 CellChangeTimes->{3.4796643211106243`*^9, 3.4941724567488375`*^9}]
}, Closed]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{Cell[TextData[StyleBox["N:",
   FontFamily->"Arial",
   FontColor->RGBColor[1, 0, 0]]], "None"], "  ", 
  RowBox[{"\[Integral]", 
   RowBox[{
    SuperscriptBox["u", "q"], " ", 
    SuperscriptBox[
     RowBox[{"(", 
      RowBox[{"a", "+", 
       RowBox[{"b", " ", 
        RowBox[{"Log", "[", 
         RowBox[{"c", " ", 
          SuperscriptBox["x", "n"]}], "]"}]}]}], ")"}], "p"], 
    RowBox[{"\[DifferentialD]", "x"}], "  ", 
    StyleBox["when",
     FontFamily->"Arial",
     FontWeight->"Plain"], 
    StyleBox["  ",
     FontFamily->"Arial",
     FontWeight->"Plain"], Cell[TextData[Cell[BoxData[
     RowBox[{"u", "\[Equal]", 
      RowBox[{"d", "+", 
       RowBox[{"e", " ", 
        SuperscriptBox["x", "r"]}]}]}]]]], "None"]}]}]}]], "Subsubtitle",
 CellDingbat->None,
 CellChangeTimes->{
  3.477935275784027*^9, {3.477935350060832*^9, 3.477935352384173*^9}, {
   3.477935393803731*^9, 3.477935400102789*^9}, {3.477935515378547*^9, 
   3.47793552034569*^9}, 3.478120029940968*^9, {3.479318860690858*^9, 
   3.47931886615872*^9}, {3.4794185033278093`*^9, 3.479418503918659*^9}, 
   3.4795122294117584`*^9, {3.479615913307893*^9, 3.4796159352794867`*^9}, 
   3.4796160386581373`*^9, 3.4796867204045024`*^9, {3.4928025699585147`*^9, 
   3.492802570130115*^9}, 3.492822274480175*^9, 3.492825822242408*^9, {
   3.4940970615585365`*^9, 3.494097062168537*^9}, {3.496441349250718*^9, 
   3.496441349830719*^9}, 3.4964414848609076`*^9, 3.4964645213514385`*^9, 
   3.5192470594155855`*^9, {3.519247288125906*^9, 3.5192473207459517`*^9}, {
   3.519247363296011*^9, 3.519247363796012*^9}, 3.519258420199427*^9, 
   3.5192584863895197`*^9, {3.519320760160028*^9, 3.519320767367241*^9}, 
   3.5193299099191504`*^9, {3.5193300315093203`*^9, 3.519330031709321*^9}, {
   3.5193323099968634`*^9, 3.5193324414114943`*^9}, {3.5193327317904043`*^9, 
   3.519332762148057*^9}, {3.519340455685931*^9, 3.519340463318947*^9}, 
   3.519340635545749*^9, {3.5193422478304834`*^9, 3.519342248704085*^9}, {
   3.519342492766513*^9, 3.519342493156514*^9}, {3.519345750301442*^9, 
   3.5193457505978427`*^9}, 3.519346263464343*^9, {3.519349307658399*^9, 
   3.519349310965605*^9}, {3.519352294781488*^9, 3.5193522950014887`*^9}, {
   3.5194134359455075`*^9, 3.519413446054325*^9}, {3.5194134908888044`*^9, 
   3.5194134927764077`*^9}, {3.5194141847624226`*^9, 
   3.5194142323581066`*^9}, {3.519414342899901*^9, 3.519414474720132*^9}, {
   3.5197939535480833`*^9, 3.5197939539380836`*^9}, {3.5197940297698174`*^9, 
   3.5197940299726176`*^9}, 3.519795153580191*^9, {3.5200103027397947`*^9, 
   3.5200103044997973`*^9}, {3.5232186878169007`*^9, 
   3.5232186881569014`*^9}, {3.5232193955778913`*^9, 
   3.5232193955778913`*^9}, {3.5233166487845354`*^9, 
   3.5233166487845354`*^9}, {3.5233167010346084`*^9, 
   3.5233167010346084`*^9}, {3.523318546315711*^9, 3.523318573368556*^9}, {
   3.5239220709492664`*^9, 3.5239220924617043`*^9}, {3.5239221279205666`*^9, 
   3.5239221365629816`*^9}, {3.523930270899587*^9, 3.523930270899587*^9}, {
   3.5240761703528385`*^9, 3.5240761703528385`*^9}, {3.52407843124921*^9, 
   3.5240784332304134`*^9}, {3.5240784932749186`*^9, 
   3.5240784932749186`*^9}, {3.524079230095413*^9, 3.524079246553442*^9}, {
   3.5240858499762287`*^9, 3.524085860178646*^9}, {3.524085945261196*^9, 
   3.524085945261196*^9}, {3.5242763399632483`*^9, 3.5242763411488504`*^9}, {
   3.5242771575294847`*^9, 3.5242771578102846`*^9}, {3.530500224433988*^9, 
   3.530500225113989*^9}, {3.5313467876910577`*^9, 3.5313467883119507`*^9}, {
   3.5332231066826243`*^9, 3.5332231066826243`*^9}, {3.5332248881251183`*^9, 
   3.533224890245121*^9}, {3.5361011385491977`*^9, 3.5361011394332485`*^9}, {
   3.5363501469745007`*^9, 3.5363501506345057`*^9}, {3.5363617411167684`*^9, 
   3.5363617534067855`*^9}, {3.536366615151597*^9, 3.5363666230616083`*^9}, {
   3.5363667754518213`*^9, 3.5363667821318307`*^9}, {3.536366906722005*^9, 
   3.536366922022027*^9}, {3.536596861742076*^9, 3.5365968701504908`*^9}, {
   3.5366042542749715`*^9, 3.536604254462172*^9}, {3.536625554425806*^9, 
   3.536625554775807*^9}, {3.5366276426139326`*^9, 3.536627642853933*^9}, {
   3.536629402336396*^9, 3.536629402746397*^9}, {3.5366940603006477`*^9, 
   3.536694061273703*^9}, {3.5366943323932104`*^9, 3.536694332661226*^9}, {
   3.536694390476533*^9, 3.536694402176202*^9}, {3.5368634751022315`*^9, 
   3.5368634756170325`*^9}, {3.536980474148706*^9, 3.5369804925387316`*^9}, {
   3.5369807910591497`*^9, 3.5369808136991816`*^9}, 3.538443999546241*^9, {
   3.538444040229568*^9, 3.5384440801737804`*^9}, {3.544471201864182*^9, 
   3.5444712020241823`*^9}, {3.5499343621399236`*^9, 
   3.5499343628887253`*^9}, {3.5693429012648573`*^9, 3.569342923814889*^9}, {
   3.5693432071452856`*^9, 3.5693432074652863`*^9}, {3.569344801387518*^9, 
   3.569344801387518*^9}, {3.5693533425947766`*^9, 3.5693533510147886`*^9}, {
   3.569353493264988*^9, 3.5693535115050135`*^9}, {3.5694290997903204`*^9, 
   3.569429100480322*^9}, {3.570821074910399*^9, 3.5708211408404913`*^9}, {
   3.5708222232940083`*^9, 3.5708222235140085`*^9}, {3.5708439070947013`*^9, 
   3.5708439078447027`*^9}, {3.5708445788056417`*^9, 3.570844579015642*^9}, {
   3.570844633845719*^9, 3.570844653965747*^9}, {3.5708448643160415`*^9, 
   3.5708448645560417`*^9}, {3.5709154140277467`*^9, 
   3.5709154142377467`*^9}, {3.5709889264734697`*^9, 3.57098892664347*^9}, {
   3.6219705833620615`*^9, 3.621970583617076*^9}, {3.6219772925408044`*^9, 
   3.6219772928048196`*^9}, 3.621978815027886*^9, {3.6220593739901085`*^9, 
   3.6220593742151213`*^9}, {3.622061420200145*^9, 3.6220614206111684`*^9}, {
   3.622418121725565*^9, 3.6224181221075864`*^9}, {3.6224229398361444`*^9, 
   3.6224229400691586`*^9}, {3.6226604503913856`*^9, 3.6226604518243885`*^9}, 
   3.622660485806449*^9, {3.6229256819220705`*^9, 3.62292568204687*^9}, {
   3.702783833717679*^9, 3.702783833924691*^9}, {3.7158042174972267`*^9, 
   3.715804218355276*^9}, 3.7165896792088575`*^9, {3.7165897102006297`*^9, 
   3.716589732498905*^9}, {3.7165897851799183`*^9, 3.7165897869530196`*^9}, 
   3.7166658510611277`*^9, 3.7166659657626886`*^9, {3.716668100910812*^9, 
   3.716668100910812*^9}, 3.746120704014755*^9},
 FontSize->12,
 FontWeight->"Bold"],

Cell["Derivation: Algebraic normalization", "Subsubsection",
 CellChangeTimes->{
  3.4953915070313115`*^9, 3.495840214754669*^9, {3.4958483177760134`*^9, 
   3.495848318886015*^9}, {3.495925911922002*^9, 3.495925920122013*^9}, 
   3.4961847242848682`*^9, 3.496184957525194*^9, 3.496188449500083*^9, 
   3.4961908979261436`*^9, 3.4961924998683863`*^9, 3.4961928754389124`*^9, {
   3.51849075797458*^9, 3.5184907698562593`*^9}, 3.5708483968129883`*^9}],

Cell[TextData[{
 "Rule: If  ",
 Cell[BoxData[
  RowBox[{"u", "\[Equal]", 
   RowBox[{"d", "+", 
    RowBox[{"e", " ", 
     SuperscriptBox["x", "r"]}]}]}]]],
 ", then"
}], "Subsubsection",
 CellDingbat->"\[FilledSmallSquare]",
 CellChangeTimes->{{3.4794189093216*^9, 3.479418932274605*^9}, {
   3.479418981395237*^9, 3.4794189822564754`*^9}, {3.4794192068193808`*^9, 
   3.4794192077607346`*^9}, 3.479420089138093*^9, {3.479420130978256*^9, 
   3.4794201410627565`*^9}, {3.479420560345656*^9, 3.479420578171288*^9}, {
   3.479420683943381*^9, 3.4794206847645617`*^9}, {3.4794210347678413`*^9, 
   3.4794210503903055`*^9}, 3.4803613662913427`*^9, {3.480361406058525*^9, 
   3.48036141974821*^9}, {3.4803614672865667`*^9, 3.480361474717252*^9}, 
   3.4807050675119123`*^9, {3.495391630941485*^9, 3.4953916682515373`*^9}, 
   3.495398892616804*^9, {3.495402251391507*^9, 3.4954022711315346`*^9}, {
   3.495488783827441*^9, 3.4954888500775337`*^9}, {3.4954889799777155`*^9, 
   3.495489009627757*^9}, {3.495489141407942*^9, 3.495489151717956*^9}, {
   3.495489235178073*^9, 3.495489239268079*^9}, {3.495489386068284*^9, 
   3.4954894212383337`*^9}, {3.495489464438394*^9, 3.4954894647383947`*^9}, {
   3.495489500148444*^9, 3.4954895034984484`*^9}, {3.4954897331687703`*^9, 
   3.495489780118836*^9}, {3.495493913565876*^9, 3.495493935715907*^9}, {
   3.495494084919718*^9, 3.4954941083997507`*^9}, 3.495494511560315*^9, {
   3.495494580840412*^9, 3.4954945834404163`*^9}, {3.495494615970462*^9, 
   3.495494740200636*^9}, {3.495494880710832*^9, 3.4954948880508423`*^9}, {
   3.4954949819649754`*^9, 3.495494999445*^9}, {3.495495046515066*^9, 
   3.495495072875103*^9}, {3.4954951239351745`*^9, 3.4954951241651745`*^9}, {
   3.4954953673051157`*^9, 3.4954953726551237`*^9}, {3.495495450474448*^9, 
   3.495495453173253*^9}, {3.495495542140209*^9, 3.495495583792282*^9}, {
   3.4954957431465626`*^9, 3.4954957746118174`*^9}, {3.495495914419263*^9, 
   3.495495917804469*^9}, {3.495495955322535*^9, 3.4954960459586945`*^9}, {
   3.495496189588146*^9, 3.4954961923181515`*^9}, {3.4954973384365644`*^9, 
   3.495497357577798*^9}, {3.5240858715198665`*^9, 3.52408591925595*^9}, {
   3.5331536712917595`*^9, 3.5331536971617956`*^9}, {3.533223063022563*^9, 
   3.5332230658125668`*^9}, {3.533224894045127*^9, 3.5332248954551287`*^9}, 
   3.5363501685345306`*^9, {3.538444353705845*^9, 3.5384443676658645`*^9}, {
   3.5499343655595293`*^9, 3.549934366379531*^9}, {3.5693429326149015`*^9, 
   3.5693429326149015`*^9}, {3.5693448172975397`*^9, 
   3.5693448172975397`*^9}, {3.5693533761948233`*^9, 
   3.5693533761948233`*^9}, {3.5708211467004995`*^9, 
   3.5708211467004995`*^9}, {3.570844659825755*^9, 3.570844659825755*^9}, {
   3.6226604625174084`*^9, 3.6226604625174084`*^9}, {3.716589803545969*^9, 
   3.716589803545969*^9}, {3.7166806198954554`*^9, 3.7166806198954554`*^9}}],

Cell[BoxData[
 RowBox[{"\[Integral]", 
  RowBox[{
   SuperscriptBox["u", "q"], " ", 
   SuperscriptBox[
    RowBox[{"(", 
     RowBox[{"a", "+", 
      RowBox[{"b", " ", 
       RowBox[{"Log", "[", 
        RowBox[{"c", " ", 
         SuperscriptBox["x", "n"]}], "]"}]}]}], ")"}], "p"], 
   RowBox[{"\[DifferentialD]", 
    RowBox[{"x", "  ", "\[LongRightArrow]", "  ", 
     RowBox[{"\[Integral]", 
      RowBox[{
       SuperscriptBox[
        RowBox[{"(", 
         RowBox[{"d", "+", 
          RowBox[{"e", " ", "x"}]}], ")"}], "q"], " ", 
       SuperscriptBox[
        RowBox[{"(", 
         RowBox[{"a", "+", 
          RowBox[{"b", " ", 
           RowBox[{"Log", "[", 
            RowBox[{"c", " ", 
             SuperscriptBox["x", "n"]}], "]"}]}]}], ")"}], "p"], 
       RowBox[{"\[DifferentialD]", "x"}]}]}]}]}]}]}]], "Subsubtitle",
 CellDingbat->None,
 CellChangeTimes->{{3.4796579723816*^9, 3.4796580261689425`*^9}, 
   3.479661191290163*^9, {3.479686720164157*^9, 3.479686720204214*^9}, {
   3.479686831554328*^9, 3.479686834819022*^9}, {3.4940970712485504`*^9, 
   3.4940971130286083`*^9}, 3.4940971455886545`*^9, 3.4953915848214207`*^9, 
   3.495391696001576*^9, {3.495401987881138*^9, 3.49540199674115*^9}, {
   3.495402119591322*^9, 3.4954021482513623`*^9}, {3.4954887467773895`*^9, 
   3.4954887749874287`*^9}, 3.495488944397666*^9, 3.495489263778113*^9, 
   3.4954893636582527`*^9, 3.4954898177188883`*^9, 3.495489875358969*^9, 
   3.495493833545764*^9, 3.495493864175807*^9, 3.4954940303560395`*^9, 
   3.4954941516698112`*^9, 3.4954942700599775`*^9, 3.4954948473707857`*^9, {
   3.495495264965372*^9, 3.4954952782653904`*^9}, {3.4954956850364604`*^9, 
   3.4954957088577023`*^9}, {3.495495865341577*^9, 3.4954958884920177`*^9}, {
   3.495496084225561*^9, 3.4954961029143944`*^9}, {3.495496211459385*^9, 
   3.4954962213810024`*^9}, 3.495496440218187*^9, {3.495497026732417*^9, 
   3.4954970596328745`*^9}, {3.495497256957621*^9, 3.495497302338101*^9}, 
   3.533151648818928*^9, 3.5331516797189713`*^9, 3.533151717349024*^9, {
   3.5331518776292486`*^9, 3.533151970249378*^9}, {3.5331520176994443`*^9, 
   3.5331520227894516`*^9}, {3.533152054329496*^9, 3.5331520626995077`*^9}, 
   3.533152270349798*^9, {3.533153065130911*^9, 3.5331530971109557`*^9}, 
   3.53315335008131*^9, {3.5331535194015465`*^9, 3.5331535356615696`*^9}, 
   3.5331536017616625`*^9, {3.533221927890974*^9, 3.533221930830978*^9}, {
   3.533222264011444*^9, 3.533222283731472*^9}, {3.5332223304615374`*^9, 
   3.5332223353515444`*^9}, 3.5363501604045196`*^9, {3.536361767566806*^9, 
   3.5363617697768087`*^9}, {3.5363666287016163`*^9, 
   3.5363666313816195`*^9}, {3.536366784271834*^9, 3.5363667868618374`*^9}, {
   3.536366923782029*^9, 3.5363669254320316`*^9}, {3.5365968786057057`*^9, 
   3.536596881944112*^9}, {3.5366940930205193`*^9, 3.53669410440917*^9}, {
   3.5366942507975435`*^9, 3.536694251403578*^9}, {3.536694493325415*^9, 
   3.536694495295528*^9}, 3.536980387788585*^9, {3.5384441491255584`*^9, 
   3.538444158185571*^9}, 3.5384445157160716`*^9, {3.5693429405449123`*^9, 
   3.569342962434943*^9}, 3.5693487483783445`*^9, 3.5693533713048167`*^9, {
   3.56935351683502*^9, 3.5693535184850225`*^9}, {3.5708211693905315`*^9, 
   3.570821183450551*^9}, {3.570844676335778*^9, 3.5708446916558*^9}, 
   3.621963549630583*^9, {3.6226604027122984`*^9, 3.622660433196354*^9}, {
   3.716589812763496*^9, 3.7165898250461984`*^9}},
 TextAlignment->Center,
 FontSize->12,
 FontWeight->"Bold"],

Cell["Program code:", "Subsubsection",
 CellDingbat->"\[FilledSmallSquare]",
 CellChangeTimes->{{3.4794189093216*^9, 3.479418932274605*^9}, {
   3.479418981395237*^9, 3.4794189822564754`*^9}, {3.4794192068193808`*^9, 
   3.4794192077607346`*^9}, 3.479420089138093*^9, {3.479420130978256*^9, 
   3.4794201410627565`*^9}, {3.479420560345656*^9, 3.479420578171288*^9}, {
   3.479420683943381*^9, 3.4794206847645617`*^9}, {3.4794210347678413`*^9, 
   3.4794210503903055`*^9}, 3.4803613662913427`*^9, {3.480361406058525*^9, 
   3.48036141974821*^9}, {3.4803614672865667`*^9, 3.480361474717252*^9}, 
   3.4807050675119123`*^9, {3.492804314166378*^9, 3.4928043441496305`*^9}, {
   3.4928044532166224`*^9, 3.492804453513023*^9}, {3.492805162266266*^9, 
   3.492805165713872*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{"Int", "[", 
   RowBox[{
    RowBox[{
     RowBox[{"u_", "^", "q_."}], "*", 
     RowBox[{
      RowBox[{"(", 
       RowBox[{"a_.", "+", 
        RowBox[{"b_.", "*", 
         RowBox[{"Log", "[", 
          RowBox[{"c_.", "*", 
           RowBox[{"x_", "^", "n_."}]}], "]"}]}]}], ")"}], "^", "p_."}]}], 
    ",", "x_Symbol"}], "]"}], " ", ":=", "\n", "  ", 
  RowBox[{
   RowBox[{"Int", "[", 
    RowBox[{
     RowBox[{
      RowBox[{
       RowBox[{"ExpandToSum", "[", 
        RowBox[{"u", ",", "x"}], "]"}], "^", "q"}], "*", 
      RowBox[{
       RowBox[{"(", 
        RowBox[{"a", "+", 
         RowBox[{"b", "*", 
          RowBox[{"Log", "[", 
           RowBox[{"c", "*", 
            RowBox[{"x", "^", "n"}]}], "]"}]}]}], ")"}], "^", "p"}]}], ",", 
     "x"}], "]"}], " ", "/;", "\n", 
   RowBox[{
    RowBox[{"FreeQ", "[", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{"a", ",", "b", ",", "c", ",", "n", ",", "p", ",", "q"}], "}"}],
       ",", "x"}], "]"}], " ", "&&", " ", 
    RowBox[{"BinomialQ", "[", 
     RowBox[{"u", ",", "x"}], "]"}], " ", "&&", " ", 
    RowBox[{"Not", "[", 
     RowBox[{"BinomialMatchQ", "[", 
      RowBox[{"u", ",", "x"}], "]"}], "]"}]}]}]}]], "Code",
 CellChangeTimes->{{3.494097165958683*^9, 3.4940971894087152`*^9}, {
   3.4940972668388243`*^9, 3.4940972723188314`*^9}, 3.49539148440128*^9, 
   3.4954018196509027`*^9, {3.495401867050969*^9, 3.4954018672609687`*^9}, {
   3.4954022872215567`*^9, 3.4954022882115583`*^9}, 3.495488713187342*^9, 
   3.4954889210576334`*^9, 3.4954892270180616`*^9, 3.4954893399982195`*^9, {
   3.4954894833184204`*^9, 3.495489485938424*^9}, 3.4954897194087505`*^9, 
   3.495493755131653*^9, {3.4954938826158323`*^9, 3.495493884975836*^9}, 
   3.4954939962159915`*^9, {3.4954942766399865`*^9, 3.4954942945800114`*^9}, 
   3.4954948208307486`*^9, {3.495495087335123*^9, 3.495495087705124*^9}, 
   3.4954951805652537`*^9, 3.495495346275087*^9, 3.495495665489626*^9, 
   3.4954958533919563`*^9, {3.49549609483358*^9, 3.495496110792408*^9}, 
   3.4954961789333277`*^9, 3.495497173544275*^9, {3.495681286888199*^9, 
   3.4956812892482023`*^9}, {3.5240859566180162`*^9, 3.52408598201486*^9}, {
   3.524086057533393*^9, 3.524086058937395*^9}, {3.5242757161181526`*^9, 
   3.5242757216717625`*^9}, {3.5242763445964565`*^9, 
   3.5242763477320623`*^9}, {3.5331525961202545`*^9, 3.533152618700286*^9}, {
   3.5331527018704023`*^9, 3.5331528058905478`*^9}, {3.533153282981216*^9, 
   3.5331533342812877`*^9}, {3.533153565251611*^9, 3.533153599281659*^9}, {
   3.5332224159616575`*^9, 3.533222435081684*^9}, {3.5332224656717267`*^9, 
   3.533222494301767*^9}, {3.533223281652869*^9, 3.53322331799292*^9}, {
   3.5332234651831264`*^9, 3.5332234684731307`*^9}, {3.533223854473671*^9, 
   3.5332238609936805`*^9}, {3.5332239572838154`*^9, 3.5332239599938188`*^9}, 
   3.533224847425061*^9, {3.5332249144151554`*^9, 3.533224915905157*^9}, 
   3.533246982034763*^9, 3.5332605459462523`*^9, {3.536350185774555*^9, 
   3.536350207334585*^9}, {3.5363506584052167`*^9, 3.5363506914352627`*^9}, {
   3.5363508662655077`*^9, 3.5363509090255675`*^9}, {3.5363510097557087`*^9, 
   3.5363510569557743`*^9}, {3.5363512834660916`*^9, 3.536351309536128*^9}, {
   3.5363515550764723`*^9, 3.5363516176765594`*^9}, {3.5363516722566357`*^9, 
   3.5363516724366364`*^9}, {3.536356352083194*^9, 3.536356353383196*^9}, {
   3.5363617881968346`*^9, 3.536361833056897*^9}, {3.536366667801671*^9, 
   3.5363667247217503`*^9}, {3.5363667904918423`*^9, 3.536366799971856*^9}, {
   3.536366941382054*^9, 3.536366980882109*^9}, {3.5365968943773336`*^9, 
   3.536596936123007*^9}, {3.536596976558278*^9, 3.536597025589164*^9}, 
   3.536602461258152*^9, {3.5366940777176437`*^9, 3.5366940881722417`*^9}, 
   3.5366943020244737`*^9, {3.536694516327731*^9, 3.5366945346767807`*^9}, {
   3.5369801281282215`*^9, 3.5369801381582355`*^9}, 3.536980329338503*^9, {
   3.53698041236862*^9, 3.5369804166186256`*^9}, {3.5369807322990675`*^9, 
   3.536980746969088*^9}, 3.538444106556738*^9, {3.5384444438259706`*^9, 
   3.5384444863560305`*^9}, 3.544471282097495*^9, {3.549934369376335*^9, 
   3.549934370546336*^9}, {3.555274643817338*^9, 3.555274658697359*^9}, {
   3.5693429690149527`*^9, 3.569343004485002*^9}, {3.569343115935158*^9, 
   3.5693431274951744`*^9}, {3.5693438869262376`*^9, 
   3.5693438923862453`*^9}, {3.5693448264475527`*^9, 3.56934483149756*^9}, {
   3.5693449570477357`*^9, 3.5693449590377383`*^9}, {3.569345094427928*^9, 
   3.569345098257933*^9}, {3.569345161418022*^9, 3.5693451624280233`*^9}, {
   3.5693487017082796`*^9, 3.5693487044182835`*^9}, {3.5693492595090604`*^9, 
   3.5693493605292015`*^9}, {3.569349958830039*^9, 3.5693499638300467`*^9}, {
   3.5693533958348513`*^9, 3.5693534053048644`*^9}, {3.569353530255039*^9, 
   3.5693535588850794`*^9}, {3.570821191330562*^9, 3.570821313940734*^9}, {
   3.5708215263110313`*^9, 3.5708215938911257`*^9}, 3.570822205683983*^9, {
   3.570844716405834*^9, 3.570844800685952*^9}, {3.5708452838066287`*^9, 
   3.570845298126649*^9}, {3.5708461278078103`*^9, 3.570846140357828*^9}, {
   3.6226605063696485`*^9, 3.6226605776027737`*^9}, {3.6226610557386227`*^9, 
   3.6226612195599184`*^9}, {3.622661250694976*^9, 3.6226612724740157`*^9}, {
   3.716589768351956*^9, 3.716589777209462*^9}, {3.716589850846674*^9, 
   3.716589940789819*^9}, {3.716668106924156*^9, 3.7166681246501703`*^9}},
 Background->GrayLevel[0.85]],

Cell["", "Subsubsection",
 CellDingbat->None,
 CellChangeTimes->{
  3.4796643211106243`*^9, {3.536351324436149*^9, 3.536351326496152*^9}, {
   3.5363515481064625`*^9, 3.536351548866463*^9}}]
}, Closed]]
},
AutoGeneratedPackage->Automatic,
CellGrouping->Manual,
WindowSize->{1590, 791},
WindowMargins->{{0, Automatic}, {Automatic, 0}},
PrintingCopies->1,
PrintingStartingPageNumber->1,
PrintingPageRange->{1, 32000},
PageHeaders->{{
   Cell[
    TextData[{
      StyleBox[
       CounterBox["Page"], "PageNumber"], " ", "|", " ", 
      StyleBox[
       ValueBox["FileName"], "Header"]}], "Header", 
    CellMargins -> {{0, Inherited}, {Inherited, Inherited}}], None, None}, {
   Cell[
    TextData[{
     "Rules", " ", "for", " ", "integrands", " ", "of", " ", "the", " ", 
      "form", " ", "(", "d", "+", "e", " ", "x", "^", "r", ")", "^", "m", " ",
       "(", "a", "+", "b", " ", "log", "(", "c", " ", "x", "^", "n", ")", ")",
       "^", "p"}], "Header", 
    CellMargins -> {{0, Inherited}, {Inherited, Inherited}}], None, 
   Cell[
    TextData[
     CounterBox["Page", CounterFunction :> Identity]], "Header", 
    CellMargins -> {{Inherited, 0}, {Inherited, Inherited}}]}},
PageFooters->{{None, None, None}, {None, None, None}},
PageHeaderLines->{False, False},
PageFooterLines->{False, False},
PrintingOptions->{"FacingPages"->False,
"FirstPageFace"->Right,
"FirstPageFooter"->False,
"FirstPageHeader"->False,
"Magnification"->1.,
"PaperOrientation"->"Landscape",
"PaperSize"->{774, 597},
"PrintCellBrackets"->False,
"PrintMultipleHorizontalPages"->False,
"PrintRegistrationMarks"->False,
"PrintingMargins"->{{28.8, 41.976}, {28.8, 28.8}}},
ShowSelection->True,
Magnification->1.399999976158142,
FrontEndVersion->"8.0 for Microsoft Windows (64-bit) (October 6, 2011)",
StyleDefinitions->"Default.nb"
]
(* End of Notebook Content *)

(* Internal cache information *)
(*CellTagsOutline
CellTagsIndex->{}
*)
(*CellTagsIndex
CellTagsIndex->{}
*)
(*NotebookFileOutline
Notebook[{
Cell[545, 20, 6183, 100, 42, "Subsubtitle"],
Cell[CellGroupData[{
Cell[6753, 124, 8071, 125, 53, "Subsubtitle"],
Cell[14827, 251, 396, 6, 354, "Subsubsection"],
Cell[15226, 259, 1801, 34, 377, "Subsubsection"],
Cell[17030, 295, 2618, 48, 299, "Subsubsection"],
Cell[19651, 345, 3665, 68, 579, "Subsubtitle"],
Cell[23319, 415, 795, 11, 354, "Subsubsection"],
Cell[24117, 428, 5835, 111, 1345, "Code"],
Cell[29955, 541, 5635, 110, 1451, "Code"],
Cell[35593, 653, 113, 2, 354, "Subsubsection"]
}, Closed]],
Cell[CellGroupData[{
Cell[35743, 660, 8490, 133, 53, "Subsubtitle"],
Cell[44236, 795, 396, 6, 210492, "Subsubsection"],
Cell[44635, 803, 2524, 54, 271843, "Subsubsection"],
Cell[47162, 859, 2613, 43, 155031, "Subsubsection"],
Cell[49778, 904, 4530, 90, 407608, "Subsubtitle"],
Cell[54311, 996, 795, 11, 210492, "Subsubsection"],
Cell[55109, 1009, 5678, 115, 643950, "Code"],
Cell[60790, 1126, 113, 2, 210492, "Subsubsection"]
}, Closed]],
Cell[CellGroupData[{
Cell[60940, 1133, 7483, 119, 66, "Subsubtitle"],
Cell[68426, 1254, 1523, 22, 35, "Subsubsection"],
Cell[69952, 1278, 2456, 48, 45, "Subsubsection"],
Cell[72411, 1328, 1877, 32, 40, "Subsubsection"],
Cell[74291, 1362, 2859, 46, 26, "Subsubsection"],
Cell[77153, 1410, 4102, 87, 73, "Subsubtitle"],
Cell[81258, 1499, 795, 11, 35, "Subsubsection"],
Cell[82056, 1512, 4257, 95, 129, "Code"],
Cell[86316, 1609, 113, 2, 35, "Subsubsection"]
}, Closed]],
Cell[CellGroupData[{
Cell[86466, 1616, 3937, 66, 53, "Subsubtitle"],
Cell[CellGroupData[{
Cell[90428, 1686, 3892, 70, 144, "Subsubtitle"],
Cell[CellGroupData[{
Cell[94345, 1760, 4970, 84, 179, "Subsubtitle"],
Cell[CellGroupData[{
Cell[99340, 1848, 4911, 83, 316, "Subsubtitle"],
Cell[CellGroupData[{
Cell[104276, 1935, 5452, 88, 316, "Subsubtitle"],
Cell[109731, 2025, 1313, 23, 187, "Subsubsection"],
Cell[111047, 2050, 2394, 44, 316, "Subsubtitle"],
Cell[113444, 2096, 795, 11, 181, "Subsubsection"],
Cell[114242, 2109, 2087, 46, 551, "Code"],
Cell[116332, 2157, 113, 2, 181, "Subsubsection"]
}, Closed]],
Cell[CellGroupData[{
Cell[116482, 2164, 5781, 95, 316, "Subsubtitle"],
Cell[122266, 2261, 177, 3, 181, "Subsubsection"],
Cell[122446, 2266, 837, 26, 202, "Subsubsection"],
Cell[123286, 2294, 1406, 20, 125, "Subsubsection"],
Cell[124695, 2316, 1553, 28, 193, "Subsubsection"],
Cell[126251, 2346, 2847, 62, 432, "Subsubtitle"],
Cell[129101, 2410, 795, 11, 181, "Subsubsection"],
Cell[129899, 2423, 2577, 66, 551, "Code"],
Cell[132479, 2491, 113, 2, 181, "Subsubsection"]
}, Closed]]
}, Closed]],
Cell[CellGroupData[{
Cell[132641, 2499, 5577, 92, 349, "Subsubtitle"],
Cell[138221, 2593, 101, 1, 210492, "Subsubsection"],
Cell[138325, 2596, 1059, 25, 240287, "Subsubsection"],
Cell[139387, 2623, 1307, 34, 271843, "Subsubsection"],
Cell[140697, 2659, 1327, 23, 155031, "Subsubsection"],
Cell[142027, 2684, 3626, 81, 503752, "Subsubtitle"],
Cell[145656, 2767, 795, 11, 210492, "Subsubsection"],
Cell[146454, 2780, 3114, 78, 643950, "Code"],
Cell[149571, 2860, 113, 2, 210492, "Subsubsection"]
}, Closed]]
}, Closed]],
Cell[CellGroupData[{
Cell[149733, 2868, 5864, 96, 187, "Subsubtitle"],
Cell[155600, 2966, 1217, 16, 210492, "Subsubsection"],
Cell[156820, 2984, 1986, 38, 240287, "Subsubsection"],
Cell[158809, 3024, 1307, 34, 271843, "Subsubsection"],
Cell[160119, 3060, 1469, 24, 155031, "Subsubsection"],
Cell[161591, 3086, 3701, 81, 429168, "Subsubtitle"],
Cell[165295, 3169, 795, 11, 210492, "Subsubsection"],
Cell[166093, 3182, 3246, 80, 643950, "Code"],
Cell[169342, 3264, 113, 2, 210492, "Subsubsection"]
}, Closed]],
Cell[CellGroupData[{
Cell[169492, 3271, 6350, 104, 144, "Subsubtitle"],
Cell[175845, 3377, 406, 6, 93, "Subsubsection"],
Cell[176254, 3385, 101, 1, 65, "Subsubsection"],
Cell[176358, 3388, 1307, 34, 120, "Subsubsection"],
Cell[177668, 3424, 1664, 29, 69, "Subsubsection"],
Cell[179335, 3455, 4345, 96, 187, "Subsubtitle"],
Cell[183683, 3553, 849, 12, 93, "Subsubsection"],
Cell[184535, 3567, 5970, 135, 282, "Code"],
Cell[190508, 3704, 113, 2, 93, "Subsubsection"]
}, Closed]]
}, Closed]],
Cell[CellGroupData[{
Cell[190670, 3712, 5778, 96, 144, "Subsubtitle"],
Cell[196451, 3810, 1601, 28, 217043, "Subsubsection"],
Cell[198055, 3840, 4707, 112, 740872, "Subsubtitle"],
Cell[202765, 3954, 795, 11, 210492, "Subsubsection"],
Cell[203563, 3967, 4340, 117, 958229, "Code"],
Cell[207906, 4086, 113, 2, 210492, "Subsubsection"]
}, Closed]]
}, Closed]],
Cell[CellGroupData[{
Cell[208068, 4094, 4093, 68, 53, "Subsubtitle"],
Cell[CellGroupData[{
Cell[212186, 4166, 7876, 122, 769, "Subsubtitle"],
Cell[220065, 4290, 2203, 35, 217043, "Subsubsection"],
Cell[222271, 4327, 4853, 107, 418545, "Subsubtitle"],
Cell[227127, 4436, 795, 11, 210492, "Subsubsection"],
Cell[227925, 4449, 5786, 126, 958229, "Code"],
Cell[233714, 4577, 113, 2, 210492, "Subsubsection"]
}, Closed]],
Cell[CellGroupData[{
Cell[233864, 4584, 4331, 76, 769, "Subsubtitle"],
Cell[CellGroupData[{
Cell[238220, 4664, 7774, 118, 1076, "Subsubtitle"],
Cell[245997, 4784, 2206, 31, 210492, "Subsubsection"],
Cell[248206, 4817, 4253, 85, 503752, "Subsubtitle"],
Cell[252462, 4904, 795, 11, 210492, "Subsubsection"],
Cell[253260, 4917, 5025, 99, 643950, "Code"],
Cell[258288, 5018, 113, 2, 210492, "Subsubsection"]
}, Closed]],
Cell[CellGroupData[{
Cell[258438, 5025, 7922, 123, 769, "Subsubtitle"],
Cell[266363, 5150, 2276, 37, 217043, "Subsubsection"],
Cell[268642, 5189, 5094, 114, 425403, "Subsubtitle"],
Cell[273739, 5305, 795, 11, 210492, "Subsubsection"],
Cell[274537, 5318, 6237, 139, 958229, "Code"],
Cell[280777, 5459, 113, 2, 210492, "Subsubsection"]
}, Closed]]
}, Closed]],
Cell[CellGroupData[{
Cell[280939, 5467, 6057, 93, 968, "Subsubtitle"],
Cell[286999, 5562, 1093, 15, 210492, "Subsubsection"],
Cell[288095, 5579, 1753, 33, 224246, "Subsubsection"],
Cell[289851, 5614, 2470, 43, 281957, "Subsubsection"],
Cell[292324, 5659, 3626, 67, 412563, "Subsubtitle"],
Cell[295953, 5728, 795, 11, 210492, "Subsubsection"],
Cell[296751, 5741, 2737, 65, 802636, "Code"],
Cell[299491, 5808, 113, 2, 210492, "Subsubsection"]
}, Closed]],
Cell[CellGroupData[{
Cell[299641, 5815, 5507, 87, 1182, "Subsubtitle"],
Cell[CellGroupData[{
Cell[305173, 5906, 5789, 95, 1182, "Subsubtitle"],
Cell[CellGroupData[{
Cell[310987, 6005, 6380, 103, 1182, "Subsubtitle"],
Cell[317370, 6110, 1093, 15, 210492, "Subsubsection"],
Cell[318466, 6127, 2038, 44, 442080, "Subsubsection"],
Cell[320507, 6173, 2624, 41, 155031, "Subsubsection"],
Cell[323134, 6216, 3879, 81, 600835, "Subsubtitle"],
Cell[327016, 6299, 795, 11, 210492, "Subsubsection"],
Cell[327814, 6312, 3721, 83, 643950, "Code"],
Cell[331538, 6397, 113, 2, 210492, "Subsubsection"]
}, Closed]],
Cell[CellGroupData[{
Cell[331688, 6404, 6453, 105, 1182, "Subsubtitle"],
Cell[338144, 6511, 1093, 15, 210492, "Subsubsection"],
Cell[339240, 6528, 2134, 47, 442080, "Subsubsection"],
Cell[341377, 6577, 2682, 42, 155031, "Subsubsection"],
Cell[344062, 6621, 4028, 86, 600835, "Subsubtitle"],
Cell[348093, 6709, 795, 11, 210492, "Subsubsection"],
Cell[348891, 6722, 3920, 88, 643950, "Code"],
Cell[352814, 6812, 113, 2, 210492, "Subsubsection"]
}, Closed]]
}, Closed]],
Cell[CellGroupData[{
Cell[352976, 6820, 7812, 121, 1182, "Subsubtitle"],
Cell[360791, 6943, 185, 3, 210492, "Subsubsection"],
Cell[360979, 6948, 3652, 64, 459965, "Subsubsection"],
Cell[364634, 7014, 2273, 35, 155031, "Subsubsection"],
Cell[366910, 7051, 4106, 81, 819537, "Subsubtitle"],
Cell[371019, 7134, 795, 11, 210492, "Subsubsection"],
Cell[371817, 7147, 3528, 78, 643950, "Code"],
Cell[375348, 7227, 3989, 93, 708380, "Code"],
Cell[379340, 7322, 113, 2, 210492, "Subsubsection"]
}, Closed]]
}, Closed]]
}, Closed]],
Cell[CellGroupData[{
Cell[379514, 7331, 8052, 127, 53, "Subsubtitle"],
Cell[387569, 7460, 396, 6, 210492, "Subsubsection"],
Cell[387968, 7468, 1801, 34, 224246, "Subsubsection"],
Cell[389772, 7504, 2321, 41, 224246, "Subsubsection"],
Cell[392096, 7547, 2662, 50, 177836, "Subsubsection"],
Cell[394761, 7599, 3665, 68, 345094, "Subsubtitle"],
Cell[398429, 7669, 795, 11, 210492, "Subsubsection"],
Cell[399227, 7682, 5683, 118, 958229, "Code"],
Cell[404913, 7802, 113, 2, 210492, "Subsubsection"]
}, Closed]],
Cell[CellGroupData[{
Cell[405063, 7809, 8219, 132, 53, "Subsubtitle"],
Cell[413285, 7943, 1417, 19, 181, "Subsubsection"],
Cell[414705, 7964, 2058, 36, 134, "Subsubsection"],
Cell[416766, 8002, 3955, 76, 281, "Subsubtitle"],
Cell[420724, 8080, 795, 11, 181, "Subsubsection"],
Cell[421522, 8093, 5150, 102, 820, "Code"],
Cell[426675, 8197, 113, 2, 181, "Subsubsection"]
}, Closed]],
Cell[CellGroupData[{
Cell[426825, 8204, 5920, 92, 53, "Subsubtitle"],
Cell[432748, 8298, 1898, 26, 210492, "Subsubsection"],
Cell[434649, 8326, 3514, 68, 327805, "Subsubtitle"],
Cell[438166, 8396, 795, 11, 210492, "Subsubsection"],
Cell[438964, 8409, 2479, 58, 643950, "Code"],
Cell[441446, 8469, 113, 2, 210492, "Subsubsection"]
}, Closed]],
Cell[CellGroupData[{
Cell[441596, 8476, 6265, 102, 53, "Subsubtitle"],
Cell[447864, 8580, 450, 6, 210492, "Subsubsection"],
Cell[448317, 8588, 2867, 45, 155031, "Subsubsection"],
Cell[451187, 8635, 3490, 65, 327805, "Subsubtitle"],
Cell[454680, 8702, 771, 11, 210492, "Subsubsection"],
Cell[455454, 8715, 5445, 96, 643950, "Code"],
Cell[460902, 8813, 190, 4, 210492, "Subsubsection"]
}, Closed]]
}
]
*)

(* End of internal cache information *)